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

Question

Информатика

Ангела

6 июня, 22:23

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

+3

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