процифунк.pptx
Microsoft Power Point Presentation 39.7 KB

Материалы прошлых работ

Алгебра логики.ppt
Microsoft Power Point Presentation 2.0 MB

Материалы К.Ю. Полякова

Файлы к тренировочной работе 9 класс
Faily_IN9_25102019.zip
Compressed Archive in ZIP Format 16.0 MB
var
  D, M: byte;

begin
  { ВВОДИМ ДЕНЬ И МЕСЯЦ: }
  write('D = ');
  readln(D); { <-- Вводим значение дня }
  write('M = ');
  readln(M); { <-- Вводим значение месяца }
  writeln;
  { Проверяем 1-й день: }
  if D = 1 then begin
    { Находим последний день предшествующего месяца: }
    case M of
     { Для 1-го дня 3-го месяца предшествующим 
     является 28-й день: }
      3: D := 28;

     { Для 1-го дня 5-го, 7-го, 10-го и 12-го месяцев
     предшествующим является 30-й день: }
      5,7,10,12: D := 30;

     { Для 1-го дня 1-го, 2-го, 4-го, 6-го, 8-го, 9-го и
     11-го месяцев предшествующим является 31-й день: }
      1,2,4,6,8,9,11: D := 31
    end;
    { Номер предшествующего месяца. Для M = 1 он  равен 12,
    а для остальных M - 1. Можем использовать такую формулу: }
    M := (M + 10) mod 12 + 1
  end { Остальные дни уменьшаем на 1 (месяц не изменяется): }
  else dec(D);
  { ВЫВОДИМ РЕЗУЛЬТАТ с форматированием. Если число 
  имеет одну цифру, то в начале добавляем 0: }
  write('Предшествующая дата: ');
  if D < 10 then write('0', D, '.')
  else write(D, '.');
  if M < 10 then writeln('0', M)
  else writeln(M);
  readln
end.