Вопрос по информатике:
Где тут ошибка?
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.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.10.2016 00:36
- Информатика
- remove_red_eye 19273
- thumb_up 22
Ответы и объяснения 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.