ВВЕСТИ НАТУРАЛЬНОЕ ЧИСЛО И ВЫВЕСТИ В СТРОКУ ОТ 1 ДО ЭТОГО ЧИСЛА
ВВЕСТИ НАТУРАЛЬНОЕ ЧИСЛО И ВЫВЕСТИ В СТРОКУ ОТ 1 ДО ЭТОГО ЧИСЛА
Гость
Ответ(ы) на вопрос:
ГостьVar i,a : Integer;
Begin
Readln(a);
For i:=1 to a do Write(i);
end.
Гостьvar
n,i:integer;
begin;
readln(n);
for i:=1 to n do
write(i:4);
end.
Не нашли ответ?
Похожие вопросы