Напишите любые 5 программ с циклом со счетчиком в PascalABC

Question

Информатика

Фелициана

31 мая, 12:44

Напишите любые 5 программ с циклом со счетчиком в PascalABC

+5

Ответы (1)

Знаешь ответ?

Горгоний · Answer 1

var

A, B:byte;

begin

readln (A);

for B:=1 to 20 do

A:=A+1;

writeln (A);

end.

var

A, K, U:byte;

begin

readln (A, U);

while A>U do

begin

K:=K+1;

A:=A-1;

end;

end.

типа такого?