Где тут ошибка? 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
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
