Программа запросил количество чисел в ноборе. Числа в ноаборе могут быть дробными. Паскаль должен отобразить только целые части, введённых чисел, а такижк сумму целых чисел

Question

Пиама

9 декабря, 19:14

+2

Ответы (1)

Знаете ответ на вопрос?

Жозефина · Answer 1

Var n, k:integer; begin write ('N k: ') ; readln (n, k) ; writeln (n * (1+0.001*k + (0.019*ord (k>30) * (k-30))) : 0:2) ; end.