Тут надо каждое десятичное число переводить в двоичную. Это же 32 бит.))
Var
k, N: Integer;
begin
Write("N = ");
ReadLn(N);
k:=1;
Repeat
Dec(N);
k:=k * 2;
WriteLn(k - 1);
Until (N < 0)
end.
Ввод чисел продолжается, пока не введено число 100.
Var
A:integer;
Begin
WriteLn('Введите числа');
Read(A);
While A<>100 do
Begin
Read(A);
End;
WriteLn('Ввод окончен');
End.
1)
var
Sk, Ss, R, A : integer;
begin
read(R, A);
Sk := pi*R*R;
Ss := A*A;
If Sk > Ss then write ('Площадь круга больше')
else
If Ss > Sk then write ('Площадь квадрата больше')
else write <span>('Площади равны')
</span>end.
2) не знаю
Вот,только не REAPIT, а REPEAT
program ex1;
var a,z,l:integer;
begin
randomize;
repeat;
a:=random(11);
z:=z+a;
l:=l+1;
until l=10;
write('ответ:',z);
end.