Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Ввести М-номер месяца. Определить входит ли этот месяц во 2 квартал

Ответ оставил Гость

Program p1;
var m:integer;
begin
writeln(Введите m: ); read(m);
if(m>3) and (m<7) then writeln(Этот месяц входит во 2 квартал) else writeln(Этот месяц не входит во 2 квартал);
end.