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

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