2015-12-28 14:25:15 +03:00
|
|
|
|
// Вложенные условные операторы. Антонимы
|
2015-05-14 22:35:07 +03:00
|
|
|
|
var s: string;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
2015-12-28 14:25:15 +03:00
|
|
|
|
writeln('Введите слово из списка (черный,высокий,свет,радость,умный): ');
|
2015-05-14 22:35:07 +03:00
|
|
|
|
readln(s);
|
2015-12-28 14:25:15 +03:00
|
|
|
|
write('Антоним: ');
|
|
|
|
|
|
if (s='черный') then
|
|
|
|
|
|
writeln('белый')
|
|
|
|
|
|
else if (s='высокий') then
|
|
|
|
|
|
writeln('низкий')
|
|
|
|
|
|
else if (s='свет') then
|
|
|
|
|
|
writeln('тьма')
|
|
|
|
|
|
else if (s='радость') then
|
|
|
|
|
|
writeln('горе')
|
|
|
|
|
|
else if (s='умный') then
|
|
|
|
|
|
writeln('глупый')
|
|
|
|
|
|
else writeln('Такого слова в списке нет')
|
2015-05-14 22:35:07 +03:00
|
|
|
|
end.
|
