Где тут ошибка? program dialog_test; var a:string;k:integer; begin writeln('ответьте "да" или "нет" на следующие вопросы'); writeln('1.Уважайте ли Вы дружбу?'); read(a); K:=0; if a='да' then k:=k+1; writeln('2.Привлекает ли вас...

Где тут ошибка? program dialog_test; var a:string;k:integer; begin writeln('ответьте "да" или "нет" на следующие вопросы'); writeln('1.Уважайте ли Вы дружбу?'); read(a); K:=0; if a='да' then k:=k+1; writeln('2.Привлекает ли вас новое?'); read(a); if a='нет' then k:=k+1; writeln ('3.Притворяйтесь ли вы довольным без всякой на то ричины?'); read(a); if a='нет' then k:=k+1; writeln('4.Меняли ли вы в детстве более 3 раз выбор своей профессии?'); read(a); if a='нет' then k:=k+1; writeln('5.Предпочитайте ли вы старую одежду новой?'); read(a); if a='нет' then k:=k+1; writeln('6.Лишались ли вы уверенности в себе, если вам предстояло решить трудную задачу'); read(a); if a='да' then k:=k+1; writeln ('7.Коллекционируйте ли вы что-либо'); read(a); if a='да' then k:=k+1; writeln('8.Часто ли вы меняете свои планы в последний момент?'); read(a); if a='нет' then k:=k+1; if k>=6 then writeln ('Вы уравновешенный человек'); if(k>=3) and (k<6) then writeln ('у вас изменчивое настроение.Не забывайте,что только проявляя постоянство и настойчивость , Вы будете преуспевать в жизни.'); if k<3 then writeln (' Внимание ! Почему вы не верите в себя? будьте более оптимистичны'); end.
Гость
Ответ(ы) на вопрос:
Гость
рабочая прога в приложении==============
Не нашли ответ?
Ответить на вопрос
Похожие вопросы