Напишите программу, которая получает два целых числа A и B (0 < A < B) и выводит квадраты всех натуральных чисел в интервале от A до B.

Question

Александр Орлов

Информатика

23 сентября, 16:06

Напишите программу, которая получает два целых числа A и B (0 < A < B) и выводит квадраты всех натуральных чисел в интервале от A до B.

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Максим Малышев · Answer 1

Var a, b, c:integer;

begin

writeln ('Введите 2 целых числа');

readln (a, b);

for c:=a to b do

begin

writeln (c,'*', c,'=', sqr (c));

end;

end.