Всего 8 автомобилей ГАЗ
(где i-количество информации (округляем в большую сторону) N - количество автомобилей)
Получается 3 бита
5 автомобилей ЗИЛ - 3 бита
6 автомобилей КаМАЗ - 3 бита
3 автомобиля MAN - 2 бита
Var
p: integer;
begin
readln(p);
if p=5 then print('Молодец!')
else if p = 4 then print('Хорошо!')
else if p<=3 then print('<span>Лентяй!</span>')
end.
Vara,b,sum:real;beginread(a,b);sum:=0;sum:=abs(a-b);write(sum);end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:BigInteger;
if not BigInteger.TryParse(ReadlnString('n='),n) then
Writeln('Введенное не является целым числом')
else
Writeln(n.IsPowerOfTwo?'YES':'NO')
end.
<u>Пример</u>
n= 2037035976334486086268445688409378161051468393665936250636140449354381299763336706183397376
YES
<span>лрчсупгхлнг, нсптябхзу, ъзосезн
</span>