Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Вывести таблицу деления чисел (свой порядковый номер делим на 2, 4, 6... , 20 с шагом 2) с двумя знаками после запятой. Сделать с помощью цикла While

Ответ оставил Гость

Var
  x, a: real;
  i: integer;

begin
  write(Введите число );
  readln(a);
  writeln(Таблица деления числа , a, на целые четные от 2 до 20 (с 2 знаками после запятой));
  i := 2;
  while i <= 20 do
  begin
    x := a / i;
    writeln(a, /, i:2, =, x:0:2);
    i := i + 2;
  end;
end.

Тестовое решение:
Введите число 27
Таблица деления числа 27 на целые четные от 2 до 20 (с 2 знаками после запятой)
27/ 2=13.50
27/ 4=6.75
27/ 6=4.50
27/ 8=3.38
27/10=2.70
27/12=2.25
27/14=1.93
27/16=1.69
27/18=1.50
27/20=1.35