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

Question

Информатика

Донара

5 июня, 07:30

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

+1

Ответы (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.