Мистер фокс переселился в новый, 2019-этажный дом. поскольку дом совсем новый, то грузовой лифт в нем работает странно: он останавливается только на этажах, чьи номера остаток один от деления на 7 (первый, восьмой, пятнадцатый, и т. сегодня мистеру фоксу должны доставить новый холодильник. за подъем холодильника в грузовом лифте грузчики денег не берут, а вот за подъем и с спуск по лестнице нужно заплатить. подъем холодильника на один этаж по лестнице стоит 150 рублей, а спуск на один этаж по лестнице стоит 100 рублей. в пассажирский лифт (в доме два лифта — пассажирский и грузовой) холодильник не влезет. в какую наименьшую сумму обойдется мистеру фоксу подъем холодильника к его квартире, если он живет на 1998
этаже?
i,j,s:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
readln(a[i,j]);
for i:=1 to 4 do begin
writeln();
for j:=1 to 4 do begin
write(a[i,j],' ');
if (i+j>5) then s:=s+a[i,j];
end;
end;
writeln();
write(s);
end.
2)var a:array[1..4,1..4] of integer;
i,j,s:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
readln(a[i,j]);
for i:=1 to 4 do begin
writeln();
for j:=1 to 4 do begin
write(a[i,j],' ');
if (i>J) then s:=s+a[i,j];
end;
end;
writeln();
write(s);
end.