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

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

Задать свой вопрос
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.

Стефания
Что это означает?writeln(i,'^2= ',sqr(i));
Артемий Дейников
вывести текст i^2= и значение квадрата. заместо sqr(i) можете написать i*i. тоже будет квадрат. На фото итог для n=10
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт