Напечатать столбиком все целые чётные числа от 14 до 24 и квадраты этих чисел. Решение вида: Число Квадрат 14 196 16 256 18 324 20 400 22 441 24 576
Напечатать столбиком все целые чётные числа от 14 до 24 и квадраты этих чисел. Решение вида:
Число Квадрат
14 196
16 256
18 324
20 400
22 441
24 576
Гость
Ответ(ы) на вопрос:
Гостьvar
i:integer;
begin
Writeln('Число Квадрат');
i:=14;
while i<=24 do
begin Writeln(i:4,sqr(i):9); i:=i+2 end
end.
Результат выполнения программы:
Число Квадрат
14 196
16 256
18 324
20 400
22 484
24 576
Не нашли ответ?
Похожие вопросы