2025-10-14 21:21:47 +03:00
|
|
|
|
// Вложенные условные операторы
|
2015-05-14 22:35:07 +03:00
|
|
|
|
|
|
|
|
|
|
begin
|
2025-10-14 21:21:47 +03:00
|
|
|
|
var x := ReadInteger('Введите оценку (1..5):');
|
|
|
|
|
|
if x = 1 then
|
|
|
|
|
|
Println('Единица')
|
|
|
|
|
|
else if x = 2 then
|
|
|
|
|
|
Println('Двойка')
|
|
|
|
|
|
else if x = 3 then
|
|
|
|
|
|
Println('Тройка')
|
|
|
|
|
|
else if x = 4 then
|
|
|
|
|
|
Println('Четвёрка')
|
|
|
|
|
|
else if x = 5 then
|
|
|
|
|
|
Println('Пятёрка')
|
|
|
|
|
|
else Println('Такой оценки нет');
|
|
|
|
|
|
end.
|
|
|
|
|
|
|
