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 s := ReadString('Введите слово из списка (черный,высокий,свет,радость,умный):');
|
|
|
|
|
|
Print('Антоним: ');
|
|
|
|
|
|
if s = 'черный' then
|
|
|
|
|
|
Println('белый')
|
|
|
|
|
|
else if s = 'высокий' then
|
|
|
|
|
|
Println('низкий')
|
|
|
|
|
|
else if s = 'свет' then
|
|
|
|
|
|
Println('тьма')
|
|
|
|
|
|
else if s = 'радость' then
|
|
|
|
|
|
Println('горе')
|
|
|
|
|
|
else if s = 'умный' then
|
|
|
|
|
|
Println('глупый')
|
|
|
|
|
|
else Println('Такого слова в списке нет');
|
2015-05-14 22:35:07 +03:00
|
|
|
|
end.
|
