Помощь - Поиск - Пользователи - Календарь
Полная версия: Решение задач
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
hasan
С клавиатуры последовательно вводятся количество загружаемого товара и его единичная масса.Ввод автоматически прекращается, как только общая масса введенного товара превзойдет грузоподъемность трейлера(V0).вычислить суммарное количество единиц отправляемого товара.
Помогите написать пожалуйста))))) smile.gif
Вячеслав Л.
НАСТОЯТЕЛЬНО советую попробовать вначале разобраться самому - это пока самое начало - потом начнуться массивы, строки, матрицы... - разобраться будет значительно труднее.

Посмотри, что у меня получилось, попробуй понять.
var
k,l,n,s,b:integer;

begin

writeln('vvedite gruzopodemnost treilrera');
readln(k);


s:=0; {inizializaziya}
b:=0;

repeat

writeln('vvedite edini4nuy massy tovara');
readln(l);

writeln('vvedite koli4estvo edinic etogo tovara');
readln(n);

b:=b+n; {s4itaem koli4estvo ediniz tovara}
s:=s+l*n; {s4itaem massy vsego tovara, 4toby proverit' vlazit ona v treiler ili net}

until s>=k;

writeln('v treiler vlezlo ',b-n,' ediniz tovara'); {b-n - 4toby ne y4ityvat' tot tovar kotoryi yzhe ne vlazit}

end.


Смени тему, сделай ее информативной!, читай правила!.
hasan
Большое спасибо... good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.