Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
i,n: integer;
begin
readln(n);
for i: =1 to n-1 do write(i*i: 5);
end.
var i,s : longint; begin s: =0; for i: =100 to 999 do s: =s+i; writeln(s); end.
Популярные вопросы