Есть ответ 👍

Як выдала обекти объекты таблици у текстовому документи​

157
157
Посмотреть ответы 1

Ответы на вопрос:


Var   a, b, c, d, n, v, k, m: integer;   f: text; begin   assign(f,'input.txt');   reset(f);   readln(n,a,b,c,d);   close(f);   v : = a * b * n;   if v mod c < > 0 then       k : = v div c + 1   else       k : = v div c;   if k mod d < > 0 then       m : = k div d + 1   else       m : = k div d;   writeln(m) end. тестовое решение: 2

Популярно: Информатика