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

Question

Информатика

Андрюша

18 июня, 01:19

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

+3

Ответы (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.

типа такого?