написать программку в PascalABCс тарелками Шрёдингерапока дверь закрыта тарелки целы ,

Написать программку в PascalABC
с тарелками Шрёдингера
пока дверь закрыта тарелки целы , по другому они разбиты

Задать свой вопрос
1 ответ

var

a: string;

begin

writeln('"Дверь открыта?" -(Да или Нет)');

readln(a);

if (a='Да') or (a='да') then

writeln('Тарелки Шрёдингера разбиты!')

else

if (a='Нет') or (a='нет') then

writeln('Тарелки Шрёдингера целы!');

end.

Юрик Джакеев
спасибо
Ленка Помогайбо
не за что
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт