Var a,b,c,d,max:integer;
begin
read(a);
max:=a;
read(b);
if b>max then
max:=b;
read(c);
if c>max then
max:=c;
read(d);
if d>max then
max:=d;
writeln(max);
<span>end.</span>
Надеюсь знаешь как это делать ,получится число 1111001
105 делиш на 2 пока не получишь 0 и в обратном порядке записываешь числа
Дааааааааааааааааааааааааааааааа
Program n1;
var k,m,n: integer;
begin
readln(k,m,n);
if (k mod 2<>0) and (m mod 2<>0) and (n mod 2<>0) then write('да') else write('нет');
end.
1. Переведём к одним и тем же единицам
100 МБит = 100/8 = 12,5 МБайт
2.
12,5/1,39 = 8,9928
3. Округлим вверх
<span>8,9928 -> 9 шт
Это ответ
</span>