Var a,b:integer;
begin
a:=random(99)+1;
write('Дополните до 100 число ',a,': ');
readln(b);
if b=100-a then writeln('Верно!')
else writeln('Вы ошиблись. 100-',a,'=',100-a);
end.
Пример:
Дополните до 100 число 75: 20
Вы ошиблись. 100-75=25
Если ты забыл ключ то 2 варианта:
1. Ты все удаляешь с него через рекавети
2.Через fastboot ставим кастомное рекавети (twrp cwm), идём по пути /data/system/ и удаляем эти файлики:gesture.key,locksettings.db,locksettings.db-wal,locksettings.db-shm
Число 110111 в десятичной системе счисления окажется числом 55.
1)
var
a, b, c, d, max: integer;
begin
readln(a, b, c, d);
if(a > b) and (a > c) and (a > d) then max := a
else if(b > a) and (b > c) and (b > d) then max := b
else if(c > a) and (c > b) and (c > d) then max := c
else max := d;
write(max);
end.
2)
var
a, b, c, max:
integer;
begin
readln(a, b, c);
if(a > b) and (a > c) then max := a
else if(b > a) and (b > c) then max := b
else max := c;
write(max);
end.
1 символ = 2 байта
1). 60*2=120 байт - на 1 строке
2). 120*40=4800 байт - на 1 странице