Написать программу печати квадратов всех натуральных чисел от 1 до n. Паскаль, цикл-for....

Question

Написать программу печати квадратов всех натуральных чисел от 1 до n. Паскаль, цикл-for. Пожалуйста помогите,очень нужно!!!!!

Answer 1

Ответ:

Объяснение:

var n,i:integer;

begin

write('Введите N ');

readln(n);

for i:=1 to n do

writeln(i,'^2= ',sqr(i));

readln;

end.

Если уж совсем просто, то:

var n,i:integer;

begin

write('Введите N ');

readln(n);

for i:=1 to n do

writeln(i*i);

readln;

end.

---

Comments

Что это значит?writeln(i,'^2= ',sqr(i));

---

вывести текст i^2= и значение квадрата. вместо sqr(i) можете написать i*i. тоже будет квадрат. На фото результат для n=10