Выведите на экран в одну строку квадраты всех натуральных чисел, меньших данного N. В Pascal)

Question

Никита Фролов

Информатика

2 ноября, 06:25

Выведите на экран в одну строку квадраты всех натуральных чисел, меньших данного N. В Pascal)

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Ника Кузнецова · Answer 1

program zz1;

var i, n:integer; / /задаем две переменные целого типа

begin

write ('Введите число n'); / /вводим заданное число n с клавиатуры

Read (n);

i:=1; / /задаем начальное число

while i*i
begin

write (i*i,' '); / / выводим на экран квадрат этого числа, следующее число будет выведено в этой же строке через пробел

i:=i+1; / /берем следующее число

end;

end.