< >

Составить программу на языке Pascal, которая выводит на экран квадраты первых пятнадцати целых нечётных положительных чисел.​

Ответы

Ответ дал: Puz1koO
0

var

 i:integer;

begin

 i:=1;

 repeat

   writeln(i,': ',sqr(i));

   i:=i+2;

 until i>30;

end.

Похожие вопросы
Математика
1 год назад
Теплоход плывёт из пункта А в Пункт Б по течению реки и добирается за 3 суток а из пункта Б в пункт А против течения за 5 суток. Скорость теплохода не менялась. Вопрос за сколько суток по течению
Математика
1 год назад
Выражение: (3*X-2/X)^2+3*X-2/X-2=0
Геометрия
2 года назад
Центральний кут на 35° більший за вписаний кут, що спирається на цю саму дугу. Знайдіть величину кожного з цих кутів.
Математика
2 года назад
Помогите решить задачу, пожалуйста: 3 рабочих выполнили работу за 6 час. За сколько часов выполнят эту же работу 2 рабочих?
История
7 лет назад
Как вы думаете, в чем причина Смуты и каковы ее последствия для России? ​
Математика
7 лет назад
23. Рота состоит из трех офицеров, шести сержантов и 60 рядовых. Сколькими способами можно выделить из них отряд, состоящий из офицера, двух сержантов и 20 рядовых?​
Обществознание
9 лет назад
СРОЧНО!!!!!!!!! В чём может проявиться опасность жизни "для" политики(2 предположения)
Физика
9 лет назад
выразите 54 км/час в м/с