Прошу написать программу существования дня месяца и года

@Dairs7 · Регистрация: 08.11.2019

Студворк — интернет-сервис помощи студентам

Это основа

Pascal

var
a,b,c: integer;
f: boolean;
begin
  repeat
 
  writeln ('Введите день ');
  readln (a);
  writeln ('Введите месяц ');
  readln (b);
  writeln ('Введите год ');
  readln (c);
  
  case b of
    
    1,3,5,7,8,10,12: if (a > 0) and (a < 32) and (c > 0) then 
      f := true;
    
    4,6,9,11: if (a > 0) and (a < 31) and (c > 0) then 
      f := true;
    2: if (a > 0) and (a < 30) and (c > 0) then
      f := true;
      else f := false;
     end;
  if f = false then writeln ('НЕТ ТАКОЙ ДАТЫ!!!!  ')
  else
    writeln ('Такая дата существует! ')
      
  until f;
  end.

@AHBAR · 08.11.2019, 14:53

Сообщение от Dairs7

Это основа

Ну в принципе должно работать, только про високосный год забыл ты...

Pascal

1
2
3

2: if ((a > 0) and (a < 30) and (c > 0) and (c mod 4 = 0))
or ((a > 0) and (a < 29) and (c > 0) and (c mod 4 <> 0)) then
f := true;

Хотя я бы по другому составил, но и так можно

@Dairs7 · 08.11.2019, 18:45 **[ТС]**

Спасибо огромное
Мне и нужен был високосный год

@Dairs7 0 / 0 / 0 Регистрация: 08.11.2019 Сообщений: 23
	08.11.2019, 18:45 [ТС]	3
	Спасибо огромное Мне и нужен был високосный год 0

Опции темы

Прошу написать программу существования дня месяца и года

Решение