Берем для примера первое логическое уравнение:
(x₁ ∨ y₁) ∧ ((¬x₁ ∨ ¬y₁) → (¬x₂ ∨ ¬y₂)) = 1
Для данного уравнения есть десять вариантов значений. Эти значения повторяются пять раз, в итоге получаем 50. Прибавляем еще 3 (варианты значений последнего уравнения).
Ответ: 53
1)
uses crt;
var i,k:integer;
n:real;
begin
randomize;
read(k);
for i:=1 to k do
begin
n:=random;
write(n:0:2,' ');
end;
<span>end.
</span>2)
uses crt;
var i,k,n,a:integer;
begin
randomize;
read(k,a);
for i:=1 to k do
begin
n:=random(0,a);
write(n,' ');
end;
<span>end.</span>
Type
Mass = array [1..1000, 1..1000] of Integer;
var
A: Mass;
n, m, i, j: Integer;
begin
Write('Количество строк массива: ');
ReadLn(n);
Write('Количество столбцов массива: ');
ReadLn(m);
for i := 1 To n Do
begin
for j := 1 To m Do
begin
Write('Введите элементы массива A[', i, ',', j, ']=');
ReadLn(A[i, j]);
end;
end;
WriteLn('Итоговый массив:');
for i := 1 to n do
begin
for j := 1 to m do
begin
A[1, j] := 111;
A[i, 2] := 222;
Write(' A[', i, ',', j, ']=', A[i, j], ';')
end;
WriteLn;
end;
end.
Задание можно озвучить так:
Создать массив целых чисел, заполнить его вручную. Заменить все элементы первого рядка на 111 и все элементы второго столбца на 222. Вывести итоговый массив.
это будет число равное 2230,вроде бы так
var i:real;
begin
i:=0;
while i<=2 do
begin
writeln(i:4,'*',i,'=',i*i);
i:=i+0.2;
end;
end.
