Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Еуксентий
21.04.2021, 14:05
Информатика

Написать программу, которая запрашивает у пользователя номер товара и выводит его название (не менее 5

товаров). Если пользователь указывает недопустимое число, то выво-дится сообщение «Ошибка ввода данных»
Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Аргирис
var n:integer; begin SetConsoleCp(1251); SetConsoleOutputCp(1251); writeln('Введите номер товара'); Readln(n); if n = 1 then Writeln('Название товара: Мягкая игрушка'); if n = 2 then Writeln('Название товара: Конструктор Lego'); if n = 3 then Writeln('Название товара: Pepsi'); if n = 4 then Writeln('Название товара: Coca-Cola'); if n = 5 then Writeln('Название товара: Sprite'); if n = 6 then Writeln('Название товара: Fanta); if (n > 6) or (n < 1) then Writeln('Ошибка ввода данных'); Readln; end.