Регистрация
bellatrissa21
Есть ответ 👍

Здравствуйте, скажите какая марка автомобиля в 30 пункте.

125
452
Посмотреть ответы 1

Ответы на вопрос:

ablozhevich
ablozhevich
4,8(23 оценок)

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.

Популярно: Другие предметы