По числу текущего месяца определить день недели, если первый день месяца был вторник.(Паскаль)
По числу текущего месяца определить день недели, если первый день месяца был вторник.(Паскаль)
Гость
Ответ(ы) на вопрос:
Гостьvar a:integer;
begin
write('введите число месяца ');
readln(a);
if (a mod 7 = 1) then write('вт');
if (a mod 7 = 2) then write('ср');
if (a mod 7 = 3) then write('чт');
if (a mod 7 = 4) then write('пт');
if (a mod 7 = 5) then write('сб');
if (a mod 7 = 6) then write('вс');
if (a mod 7 = 0) then write('пн');
end.
Не нашли ответ?
Похожие вопросы