Складіть програму, яка виводить на екран рекламу гамбургерів і пропонує користувачеві зробити замовлення. Програма приймає замовлення й повідомляє користувача про те, який безкоштовний сюрприз він отримає. До одного замовленого...
Складіть програму, яка виводить на екран рекламу гамбургерів і пропонує користувачеві
зробити замовлення. Програма приймає замовлення й повідомляє користувача про те, який
безкоштовний сюрприз він отримає. До одного замовленого гамбургера додається пляшка
мінеральної води; до двох — пляшка кока-коли; до трьох або більше — ще один гамбургер.
Гость
Ответ(ы) на вопрос:
Гость//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.
Пример ввода:
10
Пример вывода:
One more burger
Не нашли ответ?
Похожие вопросы