Написать программу выводящую на экран слова к которым необходимо подобрать слова синонимы и слова антонимы. Если к ним нельзя подобрать ан/син, написать-таких слов нету.

турбо паскаль

Question

Информатика

Семенка

18 января, 03:14

Написать программу выводящую на экран слова к которым необходимо подобрать слова синонимы и слова антонимы. Если к ним нельзя подобрать ан/син, написать-таких слов нету.

турбо паскаль

+4

Ответы (1)

Знаете ответ на вопрос?

Маина · Answer 1

Program antonim;

var s1, s2:string;

begin

s1:='горячий'; {Наше слово}

write ('Введите антоним (с маленькой буквы) к слову ', s1,': ') ;

readln (s2) ; {Ввод антонима}

if (s2'холодный') or (s2'прохладный') then writeln ('Таких слов нету.') ; {Проверка условия}

end.