Выглядит просто :)
И так...
Допустим переменная 'a' = 15, заходим в цикл. Отнимаем от переменной 2. Если переменная 'a' больше 1, то повторяем цикл. И так до того момента пока от переменной не останется 0 или 1. Если переменная равна 0, это значит что переменная четная. А если 1, то переменная нечетная. И так делаем со всеми переменными :)
1 символ 8 бит = 1 байт на одной стр 36*48 символов = 1728 символов то есть 1 страница 1728 байт, 48 страниц = 1728*48 = 82944
32 рисунка по 2080 байт = 66560
итого 82944 + 66560 = 149504 байт или 146 Килобайт
Кулме досына келер басына это значит если будешь смеется на друга то с тобой тоже это случиться на таком основании
Program gt;
var a,max,s:longint;
begin
a:=-1;
max:=-100;
s:=0;
while a<>0 do
begin
read(a);
if(a=max)then s:=s+1;
if(a>max)then begin
max:=a;
s:=1;
end;
end;
writeln(s);
end.<span>
</span>