Question

ПОМОГИТЕ ПОЖАЛУЙСТА.
Выведите столбиком дроби 30/ 5 28/5 26/5 …. 2/5.

ПРОШУ,ПРОГРАММУ СДЕЛАЙТЕ ЧЕРЕЗ ЦИКЛ For i := 1 to n do begin

Answer 1

Ответ:

var

a,b,c,d:Integer;

begin

b:=30;

for a:=1 to 15 do

Begin

c:=5;

WriteLn(b,'/',c);

b:=b-2;

end ;

readln;

end.

Объяснение:

Я смог помочь!?