Составьте программу, которая выводит на экран квадраты n первых натуральных чисел. По-моему через while do или for to do
Answers & Comments
guztata
Var n,i,kv: integer; begin writeln ('ââåäè êîëè÷åñòâî ÷èñåë'); read (n); for i:=1 to n do begin kv:=sqr(i); writeln ('êâàäðàò ÷èñëà ',i,' ðàâåí',kv); end; end.
Answers & Comments
n,i,kv: integer;
begin
writeln ('ââåäè êîëè÷åñòâî ÷èñåë');
read (n);
for i:=1 to n do
begin
kv:=sqr(i);
writeln ('êâàäðàò ÷èñëà ',i,' ðàâåí',kv);
end;
end.