Привет, помогите придумать программу ** паскале, чтобы можно было бы типо вести диалог с...

0 голосов
38 просмотров

Привет, помогите придумать программу на паскале, чтобы можно было бы типо вести диалог с "компом" на заданных параметрах, чтобы когда пишешь (привет) - он тебе тоже писал (привет), на вопрос (как дела) - писал бы (хорошо). очень надо - помогите чем сможете


Информатика (14 баллов) | 38 просмотров
Дан 1 ответ
0 голосов

var
A:string;
begin
readln(A);
if (A='привет') or (A='Привет') then writeln('Приветсвую, как дела?');
readln(A);
if (A='Хорошо') or (A='хорошо') then writeln('У меня тоже все хорошо');
if (A='Плохо') or (A='плохо') then writeln('Мне тоже грустно');

end.

(14 баллов)