Регистрация
olya12011
29.09.2021 05:02
Информатика
Есть ответ 👍

До начала каникул остается D дней. Определите сколько полных недель и сколько дней до начала каникул.

Выделите операторы программы, необходимые для решения этой задачи.

Program holiday;
Var D : integer; // Дано
week, day: integer; // Найти
Begin
[ Readln / Writeln / Integer] (D);
week := [ D div 7 / D mod 7 / D ⁄ 7 ];
day := [ D mod 7 / D div 7 / M mod 7 / M div D];
[ writeln / readln] (‘Всего ’ [ week / D / day / 7] ,’недель и ’ , [ day / D / 7], ‘ дней’ )
End.

119
445
Посмотреть ответы 1

Ответы на вопрос:

jzzy
jzzy
4,5(12 оценок)
Как то так, сложная попалась var day,a,mon,i,i1,max: integer; {объявляем переменные} begin   readln(mon,day); {вводим месяц и день}   a: =day;   for i: =mon to 12 do begin       writeln;       write(i,': ');       case mon of{сколько дней в месяце}           9: max: =30;           10: max: =31;           11: max: =30;           12: max: =31;       end;             for i1: =a to max do begin           if a> max then break;           write(a,' ');           a: =a+7;       end;       a: =a-max;   end; end.

Популярно: Информатика