ВВЕРХ
ВНИЗ

Количество дней в году. Строка-описание введенного числа

If28. Дан номер года (положительное целое число). Определить количество дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней. Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400 (например, годы 300, 1300 и 1900 не являются високосными, а 1200 и 2000 — являются).

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
var
  N, M: word;

begin   
  writeln('Введите номер года:');
  readln(N); { <-- Вводим номер года }
  writeln;
  { Проверяем соответствие года условиям: }
  if N mod 4 = 0 then
    if N mod 100 = 0 then
      if N mod 400 = 0 then M := 366
      else M := 365
    else M := 366
  else M := 365;
  { Выводим результат: } 
  writeln('Год ', N, ' имеет ', M, ' дней');
  readln
end.

If29. Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число», «положительное нечетное число» и т. д.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
var
  N: integer;

begin
  writeln('Введите целое число:');
  readln(N); { <-- Вводим число }
  writeln;
  if N = 0 then writeln('Нулевое число.')
  else begin
    { Проверяем знак числа: }
    if N > 0 then write('Положительное')
    else write('Отрицательное');
    { Проверяем четность числа: }
    if odd(N) then write(' нечетное число')
    else writeln(' четное число')
  end;
  readln
end.

If30. Дано целое число, лежащее в диапазоне 1–999. Вывести его строку-описание вида «четное двузначное число», «нечетное трехзначное число» и т. д.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
var
  N: word;

begin
  writeln('Введите целое число с диапазона 1-999:');
  readln(N); { <-- водим число }
  writeln;
  { Проверяем четность числа: }
  if N mod 2 = 0 then write(' Четное ')
  else write(' Нечетное ');
  { Проверяем количество цифр числа: }
  if N < 10 then writeln('однозначное число')
  else
  if N < 100 then writeln('двузначное число')
  else writeln('трехзначное число');
  readln
end.



Яндекс.Метрика