/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/If5.pas
19 строк
634 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Вложенные условные операторы. Антонимы 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.