Информатика, опубликовано 2018-08-22 19:56:51 by Гость
По числу текущего месяца определить день недели, если первый день месяца был вторник.(Паскаль)
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на