Помогите пожалуйста очень срочно!!!!!!!!!!!
Приложения:
Ответы на вопрос
Ответил Аноним
0
// 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.
Новые вопросы
Английский язык,
1 год назад