а) var a:array[1..3] of integer;
s, i: integer;
begin
begin
writeln('Vvedite chislo', i - );
readln(a[i]);
end;
s:=0
for i:=1 to 3 do
begin
if a[i] mod 2=0 then
s:=s+a[i]
end;
writeln(s);
readln();
end.
б) var a:array[1..3] of integer;
s, i: integer;
begin
for i:=1 to 3 do
begin
writeln('Vvedite chislo', i - );
readln(a[i]);
end;
s:=0
for i:=1 to 3 do
begin
if a[i]<0 then
write(a[i], ' ')
end;
readln();
end.
в) var a:array[1..3] of integer;
s, i: integer;
begin
for i:=1 to 3 do
begin
writeln('Vvedite chislo', i - );
readln(a[i]);
end;
s:=1
for i:=1 to 3 do
begin
if a[i] mod 3=0 then
s:=a[i]*a[i];
end;
writeln(s);
readln();
end.
Шанежки 751
Пирожные 341
Прибыль эквивалентна стоимости 2898 пирожков
Объяснение:
Пусть цех производит 4 вида продукции:
Пирожки (максимально возможно произвести 2000 шт. в день, если ничего больше не производить)
Шанежки (максимально возможно произвести 1500 шт. в день)
Булочки (максимально возможно произвести 1200 шт. в день)
Пирожные (максимально возможно произвести 700 шт. в день).
Соотношение стоимости изделий таково: пирожок/булочка - 2/1 пирожок/шанежка - 1/2 пирожок/пирожное - 1/4.
Емкость склада равна 1100 изделий. Составить оптимальный план выпуска продукции для достижения максимальной выручки.
Можно легко уложиться в пять строчек кода.
Куда ещё проще...