Var a: array[1..10] of integer; sum, i: integer;beginsum:=0;for i:=1 to 10 do begin readln(a[i]); if a[i] mod 2=0 then sum:= sum+a[i]; end;write(sum);end.
Program n1;
const maxm = 50;
maxn = 50;
var a:array[1..maxm,1..maxn] of integer;
min,max,i,j,n,m,x,maxi,mini:integer;
begin
write('Введите размеры матрицы (N*M): ');
readln(n,m);
writeln('Введите матрицу из ',n,' строк и ',m,' столбцов:');
min:=maxint; max:=-maxint-1;
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
if a[i,j]>max then begin max:=a[i,j]; maxi:=i; end;
if a[i,j]<min then begin min:=a[i,j]; mini:=i; end;
end;
for j:=1 to m do
begin
x:=a[maxi,j]; a[maxi,j]:=a[mini,j]; a[mini,j]:=x;
end;
writeln('Матрица после преобразования:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
<span>
end. </span>
n = input ()
for i in xrange (2, n+1):
k = 0 for j in xrange (2, i):
if i % j == 0:
k + 1 if k == 0:
print (i)
Если число в системе с основанием х оканчивается на 22, то
х больше или равно 0 , потому что в системах с меньшим основанием нет цифры 3
это число можно представить в виде А*Х2=2Ч=2 , где А– целое неотрицательное число
определим наибольшее возможное А с учетом условия х больше или равно 0. Из уравнения А*Х2=2Ч=2следует А=84-2Х/Х2
очевидно, что чем меньше Х, тем больше А, поэтому значениене превышает А МАКС =84-6/3^2=8ЦЕЛЫX З/2.
здесь мы подставили X=3– наименьшее допустимое значение [
остается перебрать все допустимые значения A (от 0 до A MAX =8), решая для каждого из них уравнение A*X2+2X+2=86
относительно X , причем нас интересуют только натуральные числа х больше или равно 0
получаем
при : A=0 X=42
при : A=1 решения – не целые числа
при :A=2 X =62
при :A=3.4.5.6.7.8 решения – не целые числа
таким образом, верный ответ: 6, 42.
Program wz;var a,b:integer;x:real;beginwriteln('Введите a ');readln(a);writeln('Введите b');readln(b);x:=(a+b)/(a*b);writeln('x=',x);end.