TaTaPmember
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.
Answers & Comments
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.