• Помогите составить программу на языке программирования Паскаль, которая бы содержала бы как минимум ТРИ ВЕТВЛЕНИЯ (if ... then ... else ...) и ОДИН ЦИКЛ (for i := 1 to ... do ...).

Ответы 1

  • program yourname;uses crt;var com:string; i:integer;beginwriteln('Задайте значените программы.');writeln('Для того чтобы программа посчитала от 1 до 5 пропишите команду  "go1".');writeln('Для того чтобы программа посчитала от 5 до 1 пропишите команду  "go2".');writeln('Для того чтобы сказать спасибо программе - пропишите команду "go3".');readln(com);If (com = 'go1') then beginwriteln(Программа считает от 1 до 5');for i:=1 to 5 do writeln(i) endelse if (com = 'go2') then beginwriteln('Программа считает от 5 до 1');for i:=5 downto 1 do writeln(i) endelse if (com = 'go3') then beginwriteln('Программа: Всегда рада вам помочь.'); endelse begin writeln('Данной команды не существует либо вы ввели команду вместе с ковычками.');writeln('Пожалуйста! Перезапустите программу.') end

     

    end.

    • Автор:

      rainenphz
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years