Vatebis
4 год назад
В Pascal ABCВывести на экран последо вательность символов: 122333444455555..
ОТВЕТЫ
Samson
Oct 24, 2020
var
I, p: byte;
begin
for i:=1 to 5 do
begin
for p:=1 to I do
begin
write(i);
end;
end;
end.
I, p: byte;
begin
for i:=1 to 5 do
begin
for p:=1 to I do
begin
write(i);
end;
end;
end.
301
Смежные вопросы:
