Нужно вывести на экран натуральные числа и их квадраты до указанного целого числа n
Нужно вывести на экран натуральные числа и их квадраты до указанного целого числа n
Ответ(ы) на вопрос:
Гость
Паскаль:
uses GraphABC;
var a: integer;
begin
read(a); //спрашиваем до какого числа выводить
for var i := 1 to a do
begin
println('Число: ' + i + '. Его квадрат: ' + sqr(i) + ';');
end;
end.
Не нашли ответ?
Похожие вопросы