X1=0; x2=0,2; x3=0,4; x4=0,6; x5=0,8 соответственно y1=4 ; y2=3,24 ; y3=2,56; y4=1,96 ; y5=1,44
x6=1 x7=1,2 x8=1,4 x9=1,6 x10=1,8 x11=2 соответственно y6=2 y7=2,44 y8=2,96 y9=3,56 y10=4,24 y11=5
Var
A: array [1..20] of integer;
B, C: array [1..10] of integer;
i, tmp: byte;
begin
for i := 1 to 20 do
begin
A[i] := random(30)+1;
write(A[i]:4);
tmp := tmp + 1;
if i mod 2 <> 0 then C[tmp] := A[i]
else
begin
B[tmp - 1] := A[i];
tmp := tmp - 1;
end;
end;
writeln;
for i := 1 to 10 do write(B[i]:4);
writeln;
for i := 1 to 10 do write(C[i]:4);
end.
Ответ:
Python:
n = int(input())
s = 0
for i in range(1, n+1):
s += n
print(s)
C++:
#include <iostream>
using namespace std;
int main(){
int n, s = 0;
cin >> n;
for(int i = 1; i <= n; i++) s += n;
cout << s;
}
3. Строим таблицу истинности и определяем что функция F принимает значение 0 только при всех трёх аргументах равных единицам. Во всех остальных случаях функция принимает значение 1. Функция F эквивалентна функции.
F = ¬(X₁X₂X₃)
4.
Таблица при которой F принимает значение 0
X₁ X₂ X₃ F
0 0 0 0
0 0 1 0
0 1 0 0
1 0 0 0
1 1 0 0
Program asd;
Const n=30;
var M:array[1..n] of integer;
i,k,s:integer;
BEGIN
Writeln('Заполните массив: ');
For i:=1 to n do
begin
Readln(M[i]);
end;
s:=0;
For i:=1 to n do
begin
If (M[i] mod 2=0) then
begin
inc(k);
s:=s+M[i];
end;
If (s mod 2=2) and (k mod 2=0) then
Writeln('Верно.')
else Writeln('Не верно');
end;
<span>END.</span>
