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

Question

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

Answer 1

var

a: string;

begin

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

readln(a);

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

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

else

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

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

end.

Comments

спасибо

---

не за что