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
Answers & Comments
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