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

Yanavolvak 16 сент. 2020 г., 20:34:30

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.

Карина1бкласс 15 апр. 2020 г., 11:08:32 | 5 - 9 классы

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

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

JuleySergeevna 10 янв. 2020 г., 12:49:23 | 5 - 9 классы

Написать программу в Паскаль, помогите пожалуйста?

Написать программу в Паскаль, помогите пожалуйста.

Simka198 31 мар. 2020 г., 11:05:22 | 5 - 9 классы

Написать в программе паскаль?

Написать в программе паскаль.

YulkaKiridon 20 июл. 2020 г., 00:23:19 | 5 - 9 классы

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

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

Tinlisa 6 окт. 2020 г., 16:01:05 | 5 - 9 классы

Написать в программе паскаль?

Написать в программе паскаль.

Сыр0к 4 авг. 2020 г., 01:11:16 | 10 - 11 классы

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

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

Тим7644ш89 12 апр. 2020 г., 12:11:06 | 10 - 11 классы

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

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

Milanazek777 19 дек. 2020 г., 23:54:41 | 10 - 11 классы

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

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

Кіцюні4ка 13 окт. 2020 г., 23:26:38 | 5 - 9 классы

Помогите написать программу на языке паскаль?

Помогите написать программу на языке паскаль.

Людмила286368 17 дек. 2020 г., 19:25:42 | 5 - 9 классы

Помогите написать программу в Паскале, пожалуйстаНаписать программу : Ввести двухзначное число?

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

Написать программу : Ввести двухзначное число.