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

В котором

1) Программа выдает сообщение "Вы маль или дево"

2) Пользователь в переменную ST1 задает значение маль или дево 3) Программа выдает сооб "Ты пошла бы играть в куклы"

4) Вводить ответ через переменную ST2 да или нет

5) Если ST2=да, а ST1=девочка то выдается сооб "Кого пригласишь с собой"

6) Пользователем через переменную ST3 вводит имя

7) Программа выводит сооб "Вы и [Указывается имя] пошли играть!"

8) В противном случае (пункт 5) программа выдает сооб "А вы ничего не перепутали "

9) Программа выдает сооб "Game Over"

Question

Информатика

Дягиль

3 июня, 08:15

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

В котором

1) Программа выдает сообщение "Вы маль или дево"

2) Пользователь в переменную ST1 задает значение маль или дево 3) Программа выдает сооб "Ты пошла бы играть в куклы"

4) Вводить ответ через переменную ST2 да или нет

5) Если ST2=да, а ST1=девочка то выдается сооб "Кого пригласишь с собой"

6) Пользователем через переменную ST3 вводит имя

7) Программа выводит сооб "Вы и [Указывается имя] пошли играть!"

8) В противном случае (пункт 5) программа выдает сооб "А вы ничего не перепутали "

9) Программа выдает сооб "Game Over"

+1

Ответы (1)

Знаете ответ на вопрос?

Аизам · Answer 1

Var ST1, ST2, ST3:string;

Begin

writeln ('Вы мальчик или девочка?') ;

readln (ST1) ;

writeln ('Ты пошла бы играть в куклы?') ;

readln (ST2) ;

if (ST2 = 'да') and (ST1 = 'девочка') then begin

writeln ('Кого пригласишь с собой?') ;

readln (ST3) ;

writeln ('Вы и ', ST3,' пошли играть!') ;

end

else

writeln ('А вы ничего не перепутали?') ;

writeln ('Game Over') ;

End.