Program chislo;
uses crt;
var
a:integer;
begin
writeln('Введите число : ');
readln(a);
if((a Div 100)>(a Mod 10)) then
writeln('Да')
else
if((a Div 100)<(a Mod 10)) then
writeln('Нет')
end.
(Start)
Кто пришел?
Если Саша то - играть в хоккей,
Если Наташа то - идти в кино
625Кбайт = 625*1024*8 = 5120000бит
5120000/128000=40 сек
110101=1*2^5+1*2^4+0*2^3+1*2^2+0*2^1+1*2^0=32+16+4+1=53