Алг нач
цел s, t
ввод s
ввод t
если s < 4 или t < 4
то вывод "YES"
иначе вывод "NO"
все
кон
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(3, 9); (5, 4); (–2, 1); (5, 6); (7, 8); (–5, 5); (–2, 2); (4, 3); (3, –8).
Сколько было запусков, при которых программа напечатала «NO»?
Объяснение:
1 вариант
¬а ∨ (b∨¬с)
1 ¬с (первое отрицание в скобках)
2 b∨¬с (второе дизъюнкция в скобках)
3) ¬а (отрицание а)
4)¬а ∨ (b∨¬с) - дизъюнкция ¬а и выражения в скобках
а∧ ¬ (b∨¬с)∨ d
1 ¬с (первое отрицание в скобках)
2 b∨¬с (второе дизъюнкция в скобках)
3 ¬ (b∨¬с)(отрицание выражения в скобках)
4 а∧ ¬ (b∨¬с) конъюнкция а и выражения скобках)
5 дизъюнкция п.4 и Д
Талица истинности
A b c b∧c a∨b∧c ¬a∨b∧c
0 0 0 0 0 1
0 0 1 0 0 1
0 1 0 0 0 1
0 1 1 1 1 0
1 0 0 0 1 0
1 0 1 0 1 0
1 1 0 0 1 0
1 1 1 1 1 0
2 вариант
а∨b∧c
1. конъюнкция b∧c
2 дизъюнкция а и п. 1
¬(а∨b)∨с
1. дизъюнкция в скобках а∨b
2 отрицание выражения в скобках ¬(а∨b)
3 дизъюнкция с и п.3
2 таблица истинности
А b c ¬c ¬b ¬b∧a ¬c∨¬b∧a
0 0 0 1 1 0 1
0 0 1 0 1 0 0
0 1 0 1 0 0 1
0 1 1 0 0 0 0
1 0 0 1 1 1 1
1 0 1 0 1 1 1
1 1 0 1 0 0 1
1 1 1 0 0 0 0
var a:array[1..4, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 4 do
for j:=1 to 5 do begin
read(a[i,j]);
if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j];
end;
writeln('Сумма элементов кратных 3-м и > 20 = ',k);
end.
Задача №2
var a:array[1..5, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i=j then k:=k+a[i,j];
end;
writeln('Сумма элементов главной диагонали = ',k);
end.