Вывести таблицу деления чисел (свой порядковый номер делим на 2, 4, 6... , 20 с шагом 2) с
Вывести таблицу деления чисел (свой порядковый номер делим на 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
Не нашли ответ?
Похожие вопросы