Var
a,b,c,d:integer;
Begin
writeln('Введите цену тетради, карандаша и линейки соответственно');
read(a,b,c);
d:=a+b+c;
if d>200 then writeln('Баланс превышен');
End.
Var a, max: integer;
begin
read(a);
max := -99999;
while(a <> 0) do
begin
if(a > max) then max := a;
read(a);
end;
writeln(max);
<span>end.</span>
Program ABC;
Uses CRT;
var
a,b:real;
c:char;
begin
ClrScr;
repeat
Writeln('la-la-la');
Write('Если хотите вычислить сумму, то нажмите С,');
Writeln(' произведение- D, операцию деления -E ');
Writeln('Для завершения работы нажмите Q');
c:=ReadKey;
case c of
'C','c':begin
Write('Сложение: введите слагаемые: '); Read(a,b);
Writeln('Сумма равна ',a+b);
Write('Для продолжения нажмите любую клавишу');
ReadKey;
ClrScr
end;
'D','d':begin
Write('Умножение: введите сомножители: '); Read(a,b);
Writeln('Произведение равно ',a*b);
Write('Для продолжения нажмите любую клавишу');
ReadKey;
ClrScr
end;
'E','e':begin
Write('Деление: введите делимое и делитель: '); Read(a,b);
Writeln('Частное равно ',a/b);
Write('Для продолжения нажмите любую клавишу');
ReadKey;
ClrScr
end;
'Q','q':;
else begin
Writeln(#13#10,'Error, please enter C, E or D',#13#10);
end
end;
until c in ['Q','q'];
Writeln('Ждем Вас снова!');
Readkey
end.
1) Нам нужно число больше - 77, то возможно это число 78 или больше...
2) Переведем 78 в двоичную систему счисления:
78 = 1001110;
3) Проверим число, так как число "1001110" - это результат алгоритма, то делаем все в обратном порядке, а именно убираем два разряда с права:
1001110 = 10011;
4) Переводим это число в десятичную систему счисления:
10011=19;
Ответ: 19.