Определить дату следующего дня - Pascal ABC

  1. Определить дату следующего дня


textual

Код к задаче: «Определить дату следующего дня - Pascal ABC»

Program nextday;
Var d,m,y,d1,m1,y1,v,h:integer;
Begin
Writeln('Эта программа вводит дату,следующую за введённой.');
Writeln('Введите дату в формате DD MM YYYY');
Readln(d,m,y);
v:=y mod 4;
If (m=4) or (m=6) or (m=9) or (m=11) then h:=0
Else h:=1;
If (y<0) then write('Ошибка ввода даты. Повторите ввод.')
Else if (m<0) or (m>12) then write('Ошибка ввода даты. Повторите ввод.')
Else if (d<0) or (d>31) then write('Ошибка ввода даты. Повторите ввод.')
Else if (h=0) and (d>30) then write('Ошибка ввода даты. Повторите ввод.')
Else if (m=2) and (v=0) and (d>29) then write('Ошибка ввода даты. Повторите ввод.')
Else if (m=2) and (v<>0) and (d>28) then write('Ошибка ввода даты. Повторите ввод.')
Else begin
If (d=31) and (m=12) then begin
  d1:=1; m1:=1; y1:=y+1; end
Else if (d=31) then begin
  d1:=1; m1:=m+1; y1:=y; end
Else if (d=30) and (h=0) then begin
  d1:=1; m1:=m+1; y1:=y; end
Else if (d=29) and (m=2) then begin
  d1:=1; m1:=3; y1:=y; end
Else if (d=28) and (m=2) and (v<>0) then begin
  d1:=1; m1:=3; y1:=y; end
Else begin
  d1:=d+1; m1:=m; y1:=y; end;
Write('За введённой датой ',d,'.',m,'.',y,' следует дата ',d1,'.',m1,'.',y1);
end;
End.

СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.125 из 5



Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. Доброго времени суток программисты! Вот такая задачка вызвала затруднение: С клавиатуры вводятся четыре пары координат точек в произвольном порядке(гарантируется, что они не лежат на одной прямой), определить являются ли эти точки вершинами параллелограмма. Подскажите пожалуйста с программой или с алгоритмом осуществления, заранее благодарен.

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. 2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

  1. Зада ) Багаж пассажира характеризуется количеством и общей массой вещей. Дан файл Bagazh, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно поле действительное (масса вещей в килограммах). Определить: а) число пассажиров, имеющих более двух вещей, и число пассажиров, количество вещей, которых превосходит среднее; б) имеется ли пассажир, багаж которого состоит из одной вещи массой менее Т [кг]. файл должен создаваться программой

  1. Определить, равны ли первая и последняя цифры заданного с клавиатуры числа.

  1. Помогите, пожалуйста, с программой Даны натуральное число n, целые числа а1,…,аn (последовательности идущих подряд членов), состоящие из степеней пятерки. Определить процедуру, позволяющую распознавать степень пятерки. Программу оформить в виде диалога. Выход из программы – нажатием Esc.

  1. Определить количество отрицательных элементов в тех строках, которые содержат хотя бы один нулевой элемент.

  1. Определить произведение элементов в тех столбцах, которые не содержат элементов кратных 5.