ВВЕСТИ НАТУРАЛЬНОЕ ЧИСЛО И ВЫВЕСТИ В СТРОКУ ОТ 1 ДО ЭТОГО ЧИСЛА

Ответы

Ответ дал: APALoff
0
Var i,a : Integer;
Begin
  Readln(a);
  For i:=1 to a do Write(i);
end.
Ответ дал: Gleb1Kosyrev
0
var
 n,i:integer;
begin;
readln(n);
for i:=1 to n do
write(i:4);
end.
Похожие вопросы