По числу текущего месяца определить день недели, если первый день месяца был...

0 голосов
40 просмотров

По числу текущего месяца определить день недели, если первый день месяца был вторник.(Паскаль)


Информатика (15 баллов) | 40 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(672 баллов)
0

Спасибо))