Напишите любые 5 программ с циклом со счетчиком в PascalABC
Answers & Comments
ПрофессорНиколаевич
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. типа такого?
Answers & Comments
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.
типа такого?