program DayOfWeek; var number: integer; begin write('Enter a number from 1 to 7: '); readln(number); case number of 1: writeln('Monday'); 2: writeln('Tuesday'); 3: writeln('Wednesday'); 4: writeln('Thursday'); 5: writeln('Friday'); 6: writeln('Saturday'); 7: writeln('Sunday'); else writeln('Invalid number'); end; end.
Программа запрашивает у пользователя число от 1 до 7 и выводит соответствующий день недели.
var
number: integer;
begin
write('Enter a number from 1 to 7: ');
readln(number);
case number of
1: writeln('Monday');
2: writeln('Tuesday');
3: writeln('Wednesday');
4: writeln('Thursday');
5: writeln('Friday');
6: writeln('Saturday');
7: writeln('Sunday');
else
writeln('Invalid number');
end;
end.
Программа запрашивает у пользователя число от 1 до 7 и выводит соответствующий день недели.