картинка
Объяснение:
Количество переменных = 3 (A, B, C)
Количество действий = 4 ((B ∨ C), ¬A, ¬A & (B ∨ C), A ∨ ¬A & (B ∨ C))
Количество строк = 2^количество переменных + 1 заголовок = 2³ + 1 = 8 + 1 = 9
Количество столбцов = количество переменных + количество действий = 3 + 4 = 7
Общий порядок действий:
1) скобки
2) НЕ (¬, черта над выражением) - значение противоположно исходному высказыванию
3) И (&, ∧) - истинно, когда оба исходных высказывания истинны
4) ИЛИ (∨) - ложно, когда оба исходных высказывания ложны
1 Задание
//Ищет количество четных цифр с диапазоне от 0 до 100, 25 чисел
Program v1;
var a:array[1..25]of integer;
i,kol:integer;
begin
kol:=0;
randomize;
for i:=1 to 25 do a[i]:=random(100)+0;
write('Значение матрицы: ');
for i:=1 to 25 do write(a[i]:5); writeln;
for i:=1 to 25 do if a[i] mod 2=0 then kol:=kol+1;
if kol>0 then
writeln('Количество четных цифр: ',kol) else
writeln('Четных элементов нет');
end.
2 задание
//Ищет количество элементов матрицы кратных 3 и произведение жлементов матрицы меньше 35 в диапазоне от 50 до 10, 10 чисел
var a:array[1..10]of integer;
i,sum,p:integer;
sum:=0;
p:=1;
for i:=1 to 10 do a[i]:=random(40)+10;
for i:=1 to 10 do write(a[i]:5); writeln;
for i:=1 to 10 do begin if a[i] mod 3=0 then sum:=sum+a[i];
if a[i]<35 then p:=p*a[i]
end;
if sum>0 then
writeln('Сумма элементов матрицы кратных 3: ', sum ,' ','Произведение элементов матрицы меньше 35: ',p) else
writeln('Элементов кратных 3 нет');
картинка
Объяснение:
Количество переменных = 3 (A, B, C)
Количество действий = 4 ((B ∨ C), ¬A, ¬A & (B ∨ C), A ∨ ¬A & (B ∨ C))
Количество строк = 2^количество переменных + 1 заголовок = 2³ + 1 = 8 + 1 = 9
Количество столбцов = количество переменных + количество действий = 3 + 4 = 7
Общий порядок действий:
1) скобки
2) НЕ (¬, черта над выражением) - значение противоположно исходному высказыванию
3) И (&, ∧) - истинно, когда оба исходных высказывания истинны
4) ИЛИ (∨) - ложно, когда оба исходных высказывания ложны
1 Задание
//Ищет количество четных цифр с диапазоне от 0 до 100, 25 чисел
Program v1;
var a:array[1..25]of integer;
i,kol:integer;
begin
kol:=0;
randomize;
for i:=1 to 25 do a[i]:=random(100)+0;
write('Значение матрицы: ');
for i:=1 to 25 do write(a[i]:5); writeln;
for i:=1 to 25 do if a[i] mod 2=0 then kol:=kol+1;
if kol>0 then
writeln('Количество четных цифр: ',kol) else
writeln('Четных элементов нет');
end.
2 задание
//Ищет количество элементов матрицы кратных 3 и произведение жлементов матрицы меньше 35 в диапазоне от 50 до 10, 10 чисел
Program v1;
var a:array[1..10]of integer;
i,sum,p:integer;
begin
sum:=0;
p:=1;
randomize;
for i:=1 to 10 do a[i]:=random(40)+10;
write('Значение матрицы: ');
for i:=1 to 10 do write(a[i]:5); writeln;
for i:=1 to 10 do begin if a[i] mod 3=0 then sum:=sum+a[i];
if a[i]<35 then p:=p*a[i]
end;
if sum>0 then
writeln('Сумма элементов матрицы кратных 3: ', sum ,' ','Произведение элементов матрицы меньше 35: ',p) else
writeln('Элементов кратных 3 нет');
end.