<span><span /><span><span>
A
B
C
F1
</span><span>
0
0
0
1
</span><span>
0
0
1
0
</span><span>
0
1
0
0
</span><span>
0
1
1
1
</span><span>
1
0
0
1
</span><span>
1
0
1
1
</span><span>
1
1
0
0
</span><span>
1
1
1
1
</span></span></span>
Var a,b,c,x:real;
<span>begin </span>
<span>writeln('Введите a,b,c,x'); </span>
<span>read(a,b,c,x); </span>
<span>if (a<x) and (b<x) and (c<x) then writeln('Кирпич пройдет') else </span>
<span>writeln('Кирпич не пройдет'); </span>
<span>end.</span>
Const N = 50;
var a: array[1..N] of integer;
sum, i: integer;
begin
sum := 0;
a[ 1 ] := 1;
for i := 2 to N do begin
a[ i ] := a[ i - 1 ] + 4;
sum := a[ i ] + sum;
end;
for i := 1 to N do
writeln('A[ ', i, ' ]: ', a[ i ]);
writeln;
writeln('Сумма элементов массива: ', sum);
writeln('Значения 10, 20, 30, 40 элементов, стоящих в нечетных позициях: ' );
writeln('A[ 13 ] = ', A[13],', A[ 25 ] = ', A[25], ', A[ 37 ] = ', A[37], ', A[ 49 ] = ', A[49]);
<span>end.</span>
Держи)помоги пожалуйста мне))
#include <iostream>
int main() {
int n;
std::cin >> n;
int i = 2;
while (n % i > 0) ++i;
std::cout << i;
return 0;
}