Понятность,обьективность,полнота
Неизвестно - так как известно только масса каждого предмета а не всех . и не известно выдержит ли грузовой автомобиль .
НО! можно решить так х-х*30 потом прорешать и получится 30х
Это будет ответ d)xcl, т.к. это формат электронной таблицы
Program z1;var N,A,B,C,D:integer;beginreadln(N);A:=N div 1000;B:=(N div 100) - (N div 1000)*10;C:=(N div 10)- (N div 100)*10;D:=(N mod 10);n:=0;if (A mod 3)=0 then N:=N+A;if (B mod 3)=0 then N:=N+B;if (C mod 3)=0 then N:=N+C;if (D mod 3)=0 then N:=N+D;writeln(N); end.
<em>// PascalABC.NET 3.3, сборка 1541 от 29.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var Color:array of string:=('red','orange','yellow','green','blue','magenta');
var MyColor:=ReadlnString('Введите цвет:').ToLower;
var i:=Color.IndexOf(MyColor);
if i<0 then Writeln('Неверный цвет')
else Writeln('Номер цвета равен ',i+1)
end.
<u>Пример</u>
Введите цвет: Green
Номер цвета равен 4