Задача: Бетон, производимый на заводах А и В, нужно развозить по трем стройплощадкам: N1, N2 и N3. Известны потребности стройплощадок в бетоне, запасы бетона на каждом заводе и затраты на перевозку 1 тонны бетона от каждого завода до каждой стройплощадки. Требуется составить такой план перевозок, который обеспечивал бы наименьшие затраты. Т.е необходимо определить, какое количество бетона надо перевезти с каждого из заводов на каждую стройплощадку. Завод Затраты на перевозку по стройплощадкам Запасы завода в тоннах
N1 N2 N3
А 200 р. 400 р. 600 р. 320
В 500 р. 500 р. 300 р. 380
Потребности стройплощадок в бетоне в тоннах 200 280 220.
если можно то файлом в Excel

Задача: Бетон, производимый на заводах А и В, нужно развозить по трем стройплощадкам: N1, N2 и N3. И

Показать ответ

Ответ:

zzizziz

11.10.2022 18:48

Привет всему 12 "А" классу(Реальному).Я знаю, зачем вы тут, и я вам Вы знаете меня, как Anxel09.

var a,b,sum,i : integer;

begin

readln(a,b);

if (a < 0) or (a > 10) then

while (a < 0) or (a > 10) do begin

writeln('Число ''a'' не подходит: ');

readln(a);

end;

if (b < 0) or ( b > 10) then

while (a < 0) or (a > 10) do begin

writeln('Число ''b'' не подходит: ');

readln(b);

end;

sum := 1;

for i:= 1 to b do

sum:= sum * a;

writeln('Число ''а'' в степени ''b''',' = ', sum );

end.

Вот и все!

Объяснение:

0,0(0 оценок)

Ответ:

DDaVV

09.11.2021 16:39

Var a, b: integer;
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.

0,0(0 оценок)

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