Решение задач Опции

[hasan]

С клавиатуры последовательно вводятся количество загружаемого товара и его единичная масса.Ввод автоматически прекращается, как только общая масса введенного товара превзойдет грузоподъемность трейлера(V0).вычислить суммарное количество единиц отправляемого товара.
Помогите написать пожалуйста)))))

[Вячеслав Л.]

НАСТОЯТЕЛЬНО советую попробовать вначале разобраться самому - это пока самое начало - потом начнуться массивы, строки, матрицы... - разобраться будет значительно труднее.

Посмотри, что у меня получилось, попробуй понять.

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.

Смени тему, сделай ее информативной!, читай правила!.

Сообщение отредактировано: Вячеслав Людской - 4.12.2009 17:13

[hasan]

Большое спасибо...