Регистрация
Diana6754
06.01.2023 06:51
Информатика
Есть ответ 👍

Решите примеры с фотографии по информатике

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

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

nastademirhanova
nastademirhanova
4,4(6 оценок)
Var x,nb,nm,z,xm,xb : longint; h,g,k : integer; begin writeln('введите количество больших коробок.'); readln(nb); writeln('введите количество маленьких коробок.'); readln(nm); writeln('введите количество товара в больших коробках.'); readln(xb); writeln('введите количество товара в маленьких коробках.'); readln(xm); writeln('сколько товара помещается в вагон? '); readln(x); z: = nb*xb +nm*xm; if z < = x then writeln('все изделия поместятся в один вагон') else begin h : = z div x; writeln('количество вагонов для погрузки всех товаров = ',h); end; g: = z div nb; k: = z div nm; writeln ('освободиться ',g,' больших или ',k,' маленьких коробок'); end. 

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