Если не правельно,извините,но я думаю что,это сообщение правельльно читается-РОЖДЕНОЕ.Этотвопрос у меня был и это ответ по моему мнению правельный.
Всего выпущено изделий на 1080 уе.
Надстройка, поиск решения в Excel.
Вероятнее всего это то что тебе нужно. Я так понял это схема транзисторов, да?
Может это поможет:
Program TemperatureInDecember;
Uses crt;
Var tempDecember : array[1..31] of integer;
i, countPlus, countZero, countMinus : integer;
begin
Clrscr;
countPlus := 0;
countZero := 0;
countMinus := 0;
for i:= 1 to 31 do
begin
if tempDecember = 0 then countZero += 1
else if tempDecember > 0 then countPlus += 1
else countMinus += 1;
end;
writeln('В декабре дней с нулевой температурой было: ', countZero);
writeln('В декабре дней с отрицательной температурой было: ', countMinus);
writeln('В декабре дней с положительной температурой было: ', countPlus);
readln;
end.
Плохо отобразилось, вот скрин:
Var
a:array[1..12]of integer;
m, n:integer;
Begin
a[1]:=31;a[7]:=31;
a[2]:=28;a[8]:=31;
a[3]:=31;a[9]:=30;
a[4]:=30;a[10]:=31;
a[5]:=31;a[11]:=30;
a[6]:=30;a[12]:=31;
Write('Введите номер месяца -> ');
Readln(m);
Write('Год високосный(1 - да || 0 - нет)?');
Readln(n);
if (m = 2) then Writeln(a[m] + n) else
Writeln(a[m]);
end.