5 ящ- 60 кг. 25 ящ- 300кг. 20 ящ- 240 кг. В обе палатки привезли 540 кг
var
a, m : integer;
begin
writeln('введите 8 чисел');
read(m);
for var i := 2 to 8 do begin
read(a);
if a > 0 then if a < m then m := a;
end;
writeln('наименьшее из чисел = ', m);
end.
0 не учитывается, если 0 тоже считать как положительное число то
"if a > 0" нужно заменить на "if a >= 0"
640*512 * 7 = 2 293 760 бит = 286 720 байт = 280 Кбайт
Ответ:
a) 1 1 0 1 = 1
b) 1 1 0 1 = 1
c) 0 0 0 1 = 1
d) 0 0 0 1 = 1
Объяснение:
Напиши,если нужно объяснение)