Разрешение экрана монитора 1280 на 1024 глубина цвета 24 бита Чему равен объем в кб

118

267

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

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

андрей100500ый

Информатика

4,5(19 оценок)

//pascal abc.net v3.1 сборка 1172 var n,p,m,q: integer; begin read(n,p,m,q); if frac(n/m)< > 0 then m: =trunc(n/m)+1 else m: =n div m; if n*p< m*q then writeln('поштучно, сумма=',n*p) else if n*p> m*q then writeln('коробками, сумма=',m*q); if n*p=m*q then writeln('без разницы, сумма=',n*p); end. пример ввода: 12 12 10 120 пример вывода: поштучно, сумма=144