Решать, ! 1. определите значения переменных s и i после выполнения фрагмента программы на паскале. 2. определите значения переменных t, которое будет выведено на экран программой на паскале. 3. определите значения переменных s и i после выполнения программы на паскале.
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
Объяснение:
Логическое «ИЛИ» ложно только тогда, когда ложны оба высказывания. Преобразуем выражение: (число <= 50) ИЛИ (число чётное) и проверим все варианты ответа.
Истинно, поскольку истинны оба высказывания:
40, 42, 44, 46, 48, 50.
Истинно, поскольку истинно первое высказывание:
41, 43, 45, 47, 49 не больше 50.
Истинно, поскольку истинно второе высказывание:
52, 54, 56, 58, 60. — чётное.
Ложно, поскольку ложны оба высказывания:
51, 53, 55, 57, 59.
Складываем числа которые являются ложным высказыванием условия:
51 + 53 + 55 + 57 + 59 = 275
ответ: 275