1)
Program kpa6ya;var x,y,N:integer;BEGINwriteln('x=');readln(x);writeln('y=');readln(y);writeln('N=');readln(N);if (N<1) and (N<2*108) then begin writeln('BBeguTe oT 1 go 2*108 4ucJlo N, a He ',N); readln(N); end;writeln(N/(x+y),' - BpeM9');END.
Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.
1985 год выпуска, переводим и получаем:
110011000101
Ответ: 6 единиц
3 Мбайт=25165824 Бит
256 Бит=0,031 Кбайт
98678256378 Бит=12045685,59 Кбайт
2 Мбайт=16777216 Бит
4 Мбайт=33554432 Бит
Что-то такое? Видимо для этого нужны значения переменных.