Нужно делать хорошее, чтобы люди не возненавидели. Надо говорить хорошими для окружающих делами
//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>
Ответ:
0
Объяснение:
Любое число при умеожении на 0 даёт 0. Следовательно неважно какие числа будут стоять на месте букв, ведь в конце они все равно будут умножены на 0