Автор Аня задал вопрос в разделе Другие языки и технологии
Помогите составить через паскаль диалог с компьютером. и получил лучший ответ
Ответ от Leprosy[гуру]
var s,kod: string; i,res,ch1,ch2: integer; begin randomize; writeln(\'Как твоё имя? \'); readln(s); writeln(\'Привет, \'+s); writeln(\'Реши пример\'); i:=random(2); if i=1 then kod:=\'+\' else kod:=\'-\'; ch1:=random(99); ch2:=random(99); writeln(ch1,kod,ch2); readln(res); if (res=ch1+ch2) and (kod=\'+\') then writeln(\'Молодец, правильно\') else if (res=ch1-ch2) and (kod=\'-\') then writeln(\'Молодец, правильно\') else writeln(\'плохо, перерешай пример\'); end.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Помогите составить через паскаль диалог с компьютером.