Напечатать столбиком все целые чётные числа от 14 до 24 и квадраты этих чисел. Решение...

Question

Напечатать столбиком все целые чётные числа от 14 до 24 и квадраты этих чисел. Решение вида:
Число Квадрат
14 196
16 256
18 324
20 400
22 441
24 576

Comments

22^2 не равно 441 ))) Даже без вычислений ясно, что квадрат четного числа не может быть нечетным. 441 - это квадрат 21.

Answer 1

Var
  i:integer;
begin
  Writeln('Число   Квадрат');
  i:=14;
  while i<=24 do<br>  begin Writeln(i:4,sqr(i):9); i:=i+2 end
end.

Результат выполнения программы:
Число   Квадрат
  14      196
  16      256
  18      324
  20      400
  22      484
  24      576