19. Составить алгоритм и написать решение задачи ** Паскале: Целое число х сгенерировано...

Question

19. Составить алгоритм и написать решение задачи на Паскале: Целое число х сгенерировано в диапазоне от 1 до 5. Вывести на экран название соответствующего пальца на руке.

Answer 1

Для PascalABC.net:
begin  var t := Random(1,5);  case t of    1: writeln ('Мизинец');    2: writeln ('Безымянный');    3: writeln ('Средний');    4: writeln ('Указательный');    5: writeln ('Большой');  end;end.

Comments

Вставляй поочерёдно (просто баг)

---

Ой, вот так!

---

begin
var x := Random(1,5);
case x of
1: writeln ('Мизинец');
2: writeln ('Безымянный');
3: writeln ('Средний');
4: writeln ('Указательный');
5: writeln ('Большой');
end;
end.