Введите число от 1 до 7.Если 1 - понедельник,если 2 - вторник и т.д.Вывести все это на Pascal abc
Введите число от 1 до 7.Если 1 - понедельник,если 2 - вторник и т.д.Вывести все это на Pascal abc
Гость
Ответ(ы) на вопрос:
ГостьТоесть нужно составить программу,которая по заданному числу от 1 до 7, выводит название соответствующего ему дня?
Гостьvar i:integer;
begin
writeln('Введите число от 1 до 7');
readln(i);
case i of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
end;
readln;
end.
Не нашли ответ?
Похожие вопросы