Нужно вывести на экран натуральные числа и их квадраты до указанного целого числа n

Question

Информатика

Витяся

21 августа, 19:36

Нужно вывести на экран натуральные числа и их квадраты до указанного целого числа n

+4

Ответы (1)

Знаете ответ на вопрос?

Васа · Answer 1

Паскаль:

uses GraphABC;

var a: integer;

begin

read (a) ; / / спрашиваем до какого числа выводить

for var i : = 1 to a do

begin

println ('Число: ' + i + '. Его квадрат: ' + sqr (i) + '; ') ;

end;

end.