Ответы
Ответ дал:
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 лет назад
9 лет назад