Var
День,Месяц:byte;
Begin
Write('№ дня = ');ReadLn(День);
Var C:=365-День;
Write('№ месяца = ');ReadLn(Месяц);
Case Месяц of
2:C:=C-31;
3:C:=C-59;
4:C:=C-90;
5:C:=C-120;
6:C:=C-151;
7:C:=C-181;
8:C:=C-212;
9:C:=C-243;
10:C:=C-273;
11:C:=C-304;
12:C:=C-334
End;
if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')
else
Case C mod 10 of
1:Write('До нового года остался ',C,' день');
2..4:Write('До нового года осталось ',C,' дня');
0,5..9:Write('До нового года осталось ',C,' дней')
End
End
Объяснение:
1.Простым условием (отношением) называется выражение, составленное из двух арифметических выражений или двух текстовых величин иначе их еще называют операндами
2.Составным условием называется условие, которое включает в себя несколько простых, связанных между собой логической связкой.
3.Программирование Логическая операция — в программировании операция над выражениями логического (булевского) типа, соответствующая некоторой операции над высказываниями в алгебре логики. Как и высказывания, логические выражения могут принимать одно из двух истинностных значений — «истинно» или «ложно».
Объяснение:
Надеюсь
Var
n, j, max: integer;
Numb: array[1..7] of integer;
Begin
max := Numb[1];
n := 1;
for j:=2 to 7 do
begin
if count[j]>max then
begin
max := count[j];
n:=j;
end;
end;
for j:=2 to 7 do writeln ('j= ', max-count[j]);
end;
end.