Ошибка тут: program Random;
Или переименуйте или вообще уберите эту строку.
Ответ:
Основание системы счисления (положительное) должно быть больше, чем любая из цифр, из которых состоит число в этой системе счисления.
Таким образом, неверно записаны
, ![45321_4](https://tex.z-dn.net/?f=45321_4)
Решить - это означает вычислить?
Если да, то написать программу из трех операторов.
Первый - begin
Второй - Write(то, что нужно вычислить)
Третий - end.
В вашем случае это будет так:
begin Write(2*(300-277)*3-2*(100-98)/2) end.
В результате получим 136.
Var m1,m2,st,i:integer;
begin
m1:=0; m2:=0;
st:=1;
for i:=1 to 30 do
begin
m1:=m1+100;
m2:=m2+st;
st:=st*2;
end;
writeln('Богатый: ',m1,' бедный: ',m2);
if m1<m2
then writeln('Выиграл богатый') else writeln('Выиграл бедный');
end.
Результат:
Богатый: 3000 бедный: 1073741823
Выиграл богатый
64*1024=65436 байт
65436*8=524288 бит
524288/4096=128 секунд
256*128=32768 бит
32768/8=4096 байт
4096/1024=4 Кб