Когда я ввожу ответ на вопрос, оно не отвечает на него! это паскаль program programm; var n: string; a: integer; b: integer; c: integer; answer: integer; begin write ('как вас зовут: '); readln (n); writeln (', ',n,'! '); writeln ('давай приступим к тесту! '); writeln ('сколько раз моргает человек в день? '); write (a: 2800, b: 3500, c: 4000 ); readln (a); readln (b); readln (c); if answer=a then writeln ('верно! '); if answer=b then writeln ('не верно! '); if answer=c then writeln ('не верно! ') end.

Anzhelika0624    3   03.09.2019 13:50    0