Dake
6 год назад
Напишите программу на Pascal
ОТВЕТЫ
Кусаков
Aug 11, 2019
Var
k, p, s: integer;
begin
readln(k, p, s);
k := k * (100 + p);
writeln((100 * s) div k);
end.
k, p, s: integer;
begin
readln(k, p, s);
k := k * (100 + p);
writeln((100 * s) div k);
end.
108
Смежные вопросы:
