Складіть програму, яка виводить ** екран рекламу гамбургерів і пропонує користувачеві...

Question

Складіть програму, яка виводить на екран рекламу гамбургерів і пропонує користувачеві
зробити замовлення. Програма приймає замовлення й повідомляє користувача про те, який
безкоштовний сюрприз він отримає. До одного замовленого гамбургера додається пляшка
мінеральної води; до двох — пляшка кока-коли; до трьох або більше — ще один гамбургер.

Comments

паскаль

Answer 1

//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