Написать программу в pascalabcс тарелками шрёдингерапока дверь закрыта тарелки целы , иначе они разбиты
Ангелина10волкова120
2
14.03.2019 11:52
1
Другие вопросы по теме Информатика
Lizard1999
11.09.2020 01:48
lololololololololool
29.04.2020 10:51
belka20055
29.04.2020 10:52
sofusavihc1289
23.12.2020 13:52
Вettу
23.12.2020 13:54
sapogidarom
04.04.2020 02:48
Strelok72
04.04.2020 02:48
Viktoriua25868
04.04.2020 02:48
хотам3
04.04.2020 02:48
Популярные вопросы
- Мы используем present participles : Когда описываем чьи то чувства.Когда...
3 - Найти токи в цепи постоянного тока (см. рис.). Проверить баланс...
2 - Нерсенин ылдамдыгынын озгорушунун себеби эмнеде...
1 - Краткая характеристика систем органов. Написать, что в строении...
2 - В 1973 г. ОПЕК ввела ограничения на поставки нефти на мировой...
1 - Обозначим через R(n) разность шестизначного натурального n и...
1 - Что характерно для океанического климата?...
2 - Даны векторы: a;{4; -6} и c{-3; 8} Найдите длину вектора m=4a-2c...
3 - Медианы AА1, BB1, CC1 треугольника ABC пересекаются в точке O,...
1 - Джон сільвер риси характеру цитат...
2
var
a: string;
begin
writeln('"Дверь открыта?" -(Да или Нет)');
readln(a);
if (a='Да') or (a='да') then
writeln('Тарелки Шрёдингера разбиты!')
else
if (a='Нет') or (a='нет') then
writeln('Тарелки Шрёдингера целы!');
end.