var
a,b,i: integer;
begin
writeln ('введи два числа');
read (a,b);
if a>b then writeln (a,'большее число')
else
writeln (b,'большее число')
end.
Мигает, движется, слушать дает (телефон) .
<span>хвост длинный, а сама масявка, пользы мало если не в "связи" с чем-то (мышь) . </span>
<span>и не картотека и не библиотека, а все знает о многих (записная книжка) </span>
<span>все укроет - сбережет, а не холодильник. (дискета) </span>
рано поднимает, до вечера донимает (школа) .
Текстовое сообщение расчитывается по ф-е:
А=S*i
i - кол-во бит на 1 символ (для русского яз. около 5)
S=Кстраниц*Кстрок на стр-це*Ксимволов на стр
Шанс выпадения 1 равен 1/6. Всего 6 вариантов, значит i=3 битам. Ответ: 3 бита.
Var
A:integer;
Begin
WriteLn('Введите трёзхначное число');
ReadLn(A);
WriteLn(A mod 10, (A div 10) mod 10, A div 100);
End.