четверг, 28 апреля 2016 г.

ДЗ

var
  i, n: integer;

begin
 
i := 1; 
 
readln(n);
 
repeat
   
  writeln(i);
   
  inc(i);  
 
until i = n;

end.
Автор: на

Комментариев нет:

Отправить комментарий

Подписаться на: Комментарии к сообщению (Atom)