Составить программу вычисления дня недели (по цифрам от 1 до 7) с помощью оператора case
of на языке паскаль
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
boe75
program Test;
var DayOfWeek: integer;
begin
Writeln('Введите номер дня недели:');
Readln(DayOfWeek);
case DayOfWeek of
//0 пропускаем.
1:writeln ('Понедельник.');
2:writeln ('Вторник.');
3:writeln ('Среда.');
4:writeln ('Четверг.');
5:writeln ('Пятница.');
6:writeln ('Суббота.');
7:writeln ('Воскресенье.');
end;
end.
var DayOfWeek: integer;
begin
Writeln('Введите номер дня недели:');
Readln(DayOfWeek);
case DayOfWeek of
//0 пропускаем.
1:writeln ('Понедельник.');
2:writeln ('Вторник.');
3:writeln ('Среда.');
4:writeln ('Четверг.');
5:writeln ('Пятница.');
6:writeln ('Суббота.');
7:writeln ('Воскресенье.');
end;
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
