20 lines
647 B
ObjectPascal
20 lines
647 B
ObjectPascal
// Вложенные условные операторы. Антонимы
|
||
var
|
||
s: string;
|
||
|
||
begin
|
||
writeln('Введите слово из списка (черный,высокий,свет,радость,умный): ');
|
||
readln(s);
|
||
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('Такого слова в списке нет')
|
||
end. |