Пожалуйста помогите! Объясните как исправить эту ошибку!
Приложения:
Ответы на вопрос
Ответил tyngpuk
1
Ответ:
1..5: Writeln (n,'...');
volodarvelikodnij:
Не помогло
Я уже понял, что можно просто через запятую написать 1,2,3,4,5
Странно у меня в таком виде пашет:
Program week;
Var n: integer;
begin
Writeln ('введіть номер дня тижня');
ReadLn (n);
Case n of
1..5: WriteLn (n,' - робочий день');
6,7: WriteLn(n,' - вихідний день')
else WriteLn ('нет');
end
end.
Var n: integer;
begin
Writeln ('введіть номер дня тижня');
ReadLn (n);
Case n of
1..5: WriteLn (n,' - робочий день');
6,7: WriteLn(n,' - вихідний день')
else WriteLn ('нет');
end
end.
А в чём запускаете?
Среда программирования "Алго"
Новые вопросы
Русский язык,
2 года назад
Русский язык,
2 года назад
Алгебра,
2 года назад
Математика,
2 года назад
География,
8 лет назад