Задать вопрос
26 февраля, 05:27

Помогите, прошу! Программирование на языке Pascal, используя Case

Ввести число (от 1 до 4)

если число = 1 то вывести окружность,

если - 2, то вывести квадрат,

если - 3, вывести ромб,

если - 4, вывести параллелограмм.

+1
Ответы (1)
  1. 26 февраля, 09:06
    0
    Var a:integer;

    begin

    write ('a = ') ;

    readln (a) ;

    case a of

    1: writeln ('окружность') ;

    2: writeln ('квадрат') ;

    3: writeln ('ромб') ;

    4: writeln ('параллелограмм') ;

    else writeln ('ошибка ввода') ;

    end;

    end.

    Пример:

    a = 3

    ромб
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите, прошу! Программирование на языке Pascal, используя Case Ввести число (от 1 до 4) если число = 1 то вывести окружность, если - 2, ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы