Да без проблем!
gcd(77164189341682084692124351766096496451364840671846455244761, 46668734283684548617206823665104829826096872771679324943689);
448643232670469
a:=ifactor(77164189341682084692124351766096496451364840671846455244761);
4
(3) (11) (503) (809) (573384723060967) (448643232670469) (492166512383869) (1680979)
b:=ifactor(46668734283684548617206823665104829826096872771679324943689);
(781199815286623) (283598494080047) (448643232670469) (39869)
(11776697129)
Var x,n,k:integer;
<span>begin </span>
<span>k:=0; </span>
<span>writeln('Введите количество чисел в последовательности'); </span>
<span>readln(n); </span>
<span>writeln('Введите числа'); </span>
<span>while n>0 do begin </span>
<span>readln(x); </span>
<span>if x mod 3=0 then k:=k+1; </span>
<span>n:=n-1; </span>
<span>end; </span>
<span>writeln('Количество чисел четных 3 = ',k); </span>
<span>end.</span>
1) 86-8=78 ученика работают хоть на чем-то
<span>2) (54+62)-78 = 116-74 = 38 ученика умеют работать и на тракторе и на комбайне</span>
Const
<span>i=10; </span>
<span>var m:array[1..i] of integer; </span>
<span>n,k,min,j:integer; </span>
<span>begin </span>
<span>k:=0; </span>
<span>writeln('Введите элементы массива'); </span>
<span>for n:=1 to i do read(m[n]); </span>
<span>min:=m[1]; </span>
<span>for n:=1 to i do if m[n]<min then begin </span>
<span>min:=m[n]; </span>
<span>j:=n; </span>
<span>end; </span>
<span>for n:=1 to j-1 do </span>
<span>if m[n]<0 then inc(k); </span>
<span>writeln(k); </span>
<span>end. </span>
