Запишу на обычном языке, Паскаль не помню уже.
А - первое число. Б - второе число.
Если А больше Б и Б div 5=0 тогда выводится на экран (' Б наименьшее число и нацело делится на 5')
Если Б больше А и А div 5=0 тогда выводится на экран (' А наименьшее число и нацело делится на 5')
Точно не помню как выглядит это в Паскале, но что-то типо такого
If A<B and A div 5=0 then writeln ('А наименьшее число и нацело делится на 5');
If B<A and B div 5=0 then writeln ('Б наименьшее число и нацело делится на 5');
Ответ 135
Самый простой способ перевода из двоичной в десятичную
2x0+1=1 (где 1 это первый бит слева)
2х1+0=2
2x2+0=4
2x4+0=8
2x8+0=16
2x16+1=33
2x33+1=67
2x67+1=135
ответ 135
Var s:real;
begin
readln;
s:=((1+2)/(3+4))/((5+6)/(7+8));
writeln(s);
readln;
end.
54 символа
1 символ=1байт=8 бит
54*8=432бит
Будильник петух музыка колокольчик телефон