Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите написать программу в паскале

Ответ оставил Гость

Var r:integer;
o:string;
begin
writeln(Тест "Приятно ли с вами общаться?");
writeln(Вы любите больше слушать, чем говорить?);
read(o);
if o=Да then inc(r);
writeln(Вы всегда можете найти тему для разговора даже с незнакомым человеком?);
read(o);
readln;
readln;
if o=Да then inc(r);
writeln(Вы всегда внимательно слушаете собеседника?);
read(o);
readln;
if o=Да then inc(r);
writeln(Любите ли вы давать советы?);
read(o);
readln;
if o=Да then inc(r);
writeln(Если тема разговора вам не интересна, станете ли вы показывать это собеседнику??);
read(o);
readln;
if o=Да then inc(r);writeln(Раздражаетесь ли вы, когда вас не слушают?);
read(o);
readln;
if o=Да then inc(r);
writeln(У вас есть собственное мнение по любому вопросу?);
read(o);
readln;
if o=Да then inc(r);
writeln(Если тема для разговора вам не знакома, станете ли вы её развивать?);
read(o);
readln;
if o=Да then inc(r);
writeln(Любите ли вы быть центром внимания?);
read(o);
readln;
if o=Да then inc(r);
writeln(Есть ли хотя бы три предмета, по которым вы обладаете достаточно прочными знаниями?);
read(o);
readln;
if o=Да then inc(r);
writeln(Вы хороший оратор?);
read(o);
readln;
if o=Да then inc(r);
if (r>=1) and (r<=3) then writeln(Трудно сказать, то ли вы молчун, то ли настолько общительны, что вас стараются избегать, общаться с вами не всегда приятно);
if (r>=4) and (r<=9) then writeln(Вы, может быть, и не слишком общительны, но почти всегда внимательный и приятный собеседник);
if (r>=10) then writeln(Вы, наверное, один из самый приятных собеседников, друзья не могут без вас обойтись);
end.