Помогите решить задачу по икт нужно вот это переделать так чтобы были квадратные ?
Помогите решить задачу по икт нужно вот это переделать так чтобы были квадратные ??исла помогите пж
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.
Не нашли ответ?
Похожие вопросы