Вывести на экран название дня недели, соответствующее заданному числу - Pascal ABC

Формулировка задачи:

17. Вывести на экран название дня недели, соответствующее заданному числу, при условии что в месяце 31 день и первое число понедельник.


textual

Код к задаче: «Вывести на экран название дня недели, соответствующее заданному числу - Pascal ABC»

const DayOfWeekName  : array[0..6] of string = ('voskpecenbe','ponedelnik','vtornik','cpeda',
'4etverg','pyatnica','cybbota');
 
var day : integer;
begin
  repeat
    Write('Vvedite daty: '); ReadLn(day);
    if not ((day>=1) and (day<=31)) then
       WriteLn(' oshibochnay data! Doljno byt` ot 1 do 31!');
  until (day>=1) and (day<=31);
 
  WriteLn(DayOfWeekName[day mod 7])
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 3.667 из 5

Источник
Похожие ответы