Пожаловаться
- 19.10.2017 05:37
- Информатика
- remove_red_eye 16197
- thumb_up 28
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1492 от 03.07.2017
// Внимание! Если программа не работает, обновите версию!
begin
var w:=ReadAllText('input.txt');
var s:='ERROR';
case w of
'RED':s:='NO';
'YELLOW':s:='NO';
'GREEN':s:='YES'
end;
WriteAllText('output.txt',s)
end.
// Внимание! Если программа не работает, обновите версию!
begin
var w:=ReadAllText('input.txt');
var s:='ERROR';
case w of
'RED':s:='NO';
'YELLOW':s:='NO';
'GREEN':s:='YES'
end;
WriteAllText('output.txt',s)
end.
Пожаловаться
- 21.10.2017 00:14
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы