//Pascal ABC.NET v3.0 сборка 1111
Var
a:integer;
begin
writeln('Our burgers do not prepare you for the exam, but will learn to code');
writeln('Value of burgers:');
readln(a);
case a of
1:writeln('Mineral water');
2:writeln('Coca-cola bottle');
end;
if a>=3 then writeln('One more burger');
end.<span>
Пример ввода:
10
Пример вывода:
One more burger
</span>
Дано:N=32 k=120 I=?
Решение I=i*k
32=2⁵ значит i = 5
I = 120*5=600бит = 75байт