алг
нач
цел count, i, count1
целтаб A[1:10]
нц для i от 1 до 10
A[i]:=irand (20, 100)
вывод A[i], " "
кц
вывод " ", нс
count:=0
count1:=0
нц для i от 1 до 10
если mod (A[i], 2)=0
то count:=count+1
иначе count1:=count1+1
все
кц
вывод "четных ", count, нс, "нечетных ", count1
кон
#include <iostream>
using namespace std;
int main(){
int max,k,n,nod,p;
int ar[1000];
cin>>n;
for(int i=0;i<n;i++){
cin>>ar[i];
}
max=ar[0];
for(int i=1;i<n;i++){
if(ar[i]>max){
max=ar[i];
k=1;
nod=1;}
}
while(k!=max){
k++;
p=0;
for(int i=0;i<n;i++){
if(ar[i]%k==0){
p++;}}
if(p==n){
nod=k;}
}
cout<<"NOD="<<nod;
cin.get();
cin.get();
return 0;
<span> }</span>
//PascalABC.NET 3.1 сборка 1200
begin
var s := ReadlnString('s =');
s := s.Replace('А', '*_*');
s := s.Replace('Б', 'А');
s := s.Replace('*_*', 'Б');
s := s.Replace('а', '*_*');
s := s.Replace('б', 'а');
s := s.Replace('*_*', 'б');
writeln(s);
end.
3х=120
х=40
за 40 секунд 1 Мбайт
4 за 160 секунд
или 2 мин 40 секунд
А2=12
В2=4
С2=4
Соответственно D2 тоже должно быть равно 4 (по диаграмме)
То есть B2=8 (4*2=8)