Складть програму, яка виводить на екран рекламу гамбургерв пропону

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

Задать свой вопрос
Никита Ивиянович
паскаль
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 agt;=3 then writeln('One more burger');
end. 

Пример ввода:
10
Пример вывода:
One more burger
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт