Комментарии: Решаем задачи Абрамян на Паскале. For14

Автор: Anton

Anton — Fri, 12 Dec 2014 10:22:04 +0000

В ответ на Кирилл. Ты не используешь ту форму... а эмулируешь для пользователя её использование, что как бы не соответствует условию. :)

Кирилл — Thu, 11 Dec 2014 17:45:48 +0000

uses PT4;
var n,i,rez:integer;
begin
  Task('For14');
read(n);
for i:=1 to n do
   begin
      rez:=sqr(i);
      write(rez);
   end;
end.

uses PT4;

var n,i,rez:integer;

begin

Task('For14');

read(n);

for i:=1 to n do

begin

rez:=sqr(i);

write(rez);

end;

end.