19 lines
469 B
ObjectPascal
19 lines
469 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. |