Помогите решить задачу по икт нужно вот это переделать так чтобы были квадратные числа помогите пж Var i:integer; begin For i:=1 to 10 do begin writeln (i); end; end.
Помогите решить задачу по икт нужно вот это переделать так чтобы были квадратные числа помогите пж
Var i:integer;
begin
For i:=1 to 10 do
begin
writeln (i);
end;
end.
Гость
Ответ(ы) на вопрос:
ГостьVar i:integer;
begin
For i:=1 to 10 do
begin
writeln (sqr(i));
end;
end.
Не нашли ответ?
Похожие вопросы