begin write('Введите месяц (1-12) и год (2001-2099): '); readln(n, y); case n of 1, 3, 5, 7, 8, 10, 12: writeln('31 день'); 4, 6, 9, 11: writeln('30 дней'); 2: if y mod 4 = 0 then write('29 дней') else write('28 дней') end end.
Тестовое решение: Введите месяц (1-12) и год (2001-2099): 7 2014 31 день
Переводим X и Y в двоичную систему - это все же два числа, а не четыре, как если бы из двоичной переводить Z. Цифры шестнадцатиричного X расписываем по двоичным тетрадам, а восьмеричного Y - по триадам. X = B7₁₆ = 1011 0111₂ = 10110111 Y = 271₈ = 010 111 001₂ = 10111001 Требуется найти Z, которое находится между X и Y. Запишем в столбик, выравняв по младшему разряду, сначала X, потом варианты Z и в конце Y. То, что не будет попадать в интервал между числами в первой и последней строках, потом вычеркнем. 10110111 10111001 - равно нижнему, вычеркнем 10011000 - меньше верхнего, вычеркнем 10111000 - подходит - это ответ 10110111 - равно верхнему, вычеркнем 10111001
Var i,max,min,imax,imin,sum,kol:longint; a:array [1..1000] of longint; begin i:=1; readln(a[i]); max:=0; min:=maxint; sum:=0; kol:=0; while a[i]<>0 do begin if a[i] mod 2=0 then begin kol:=kol+1; sum:=sum+a[i]; end; if a[i]>max then begin max:=a[i]; imax:=i; end; if a[i]<min then begin min:=a[i]; imin:=i; end; i:=i+1; readln(a[i]); end; writeln('Количество чисел:',kol,',сумма чисел:',sum); writeln('максимальное из чисел: ',max,',номер максимального числа:',imax); writeln('минимальное из чисел: ',min,',номер минимального числа:',imin); end.
Пример: 15 27 94 60 51 0 Количество чисел:2,сумма чисел:154 максимальное из чисел: 94,номер максимального числа:3 минимальное из чисел: 15,номер минимального числа:1
n, y: integer;
begin
write('Введите месяц (1-12) и год (2001-2099): ');
readln(n, y);
case n of
1, 3, 5, 7, 8, 10, 12: writeln('31 день');
4, 6, 9, 11: writeln('30 дней');
2: if y mod 4 = 0 then write('29 дней') else write('28 дней')
end
end.
Тестовое решение:
Введите месяц (1-12) и год (2001-2099): 7 2014
31 день