include iostream using namespace std int main int

С++ #include <iostream> using namespace std; int main() {int n, k, i, j, a, b, b 1, p 2; int m[20], nom[20]; cin>>k>>n; for(i=1; i<=k; i++) {m[i]=0; } for(i=1; i<=n; i++) { cin>>a; m[a]++; } for(i=1; i<=k; i++) for(j=1; j<=k; j++) if(m[j]<m[j+1]) { m[j]=m[j+1]; nom[j]=nom[j+1]; m[j+1]=m[j]; nom[j+1]=nom[j]; } p 1=k+1; p 2=k+1; for(i=1; i<=k; i++) if((m[i]==m[1])) cout<<"I "<<' '<<m[i]<<endl; else { p 1=i; break; } for(i=p 1; i<=k; i++) if((m[i] == m[p 1])) cout<<"II "<<' '<<m[i]<<endl; else { p 2=i; break; } for(i=p 2; i<=k; i++) if((m[i]==m[p 2])) cout<<"III"<<' '<<m[i]<<endl; else break;

Pascal var n, k, i, j, a, b, b 1, p 2: integer; M: array[1. . 20] of integer; Nom: array[1. . 20] of integer; Readln(k, n) For i: =1 to k do m[i]: =0; For i: =1 to n do begin readln(a); m[a]: =m[a]+1; End; For i: =1 to k do For j: =1 to k do if(m[j]<m[j+1]) then begin m[j]: =m[j+1]; nom[j]: =nom[j+1]; m[j+1]: =m[j]; nom[j+1]: =nom[j]; End; P 1: =k+1; P 2: =k+1; for i: =1 to k do if((m[i]=m[1])) then cout<<"I "<<' '<<m[i]<<endl; else begin p 1: =i; break; end; for i: =p 1 to k do if((m[i] = m[p 1])) then Writeln(‘II ‘, m[i]) else begin p 2: =i; break; end; for i: =p 2 to k do if((m[i]=m[p 2])) then Writeln(‘III ‘, m[i]) else break; End.

С++ #include <iostream> using namespace std; int main() {int n, k, i, j, a, b, b 1, p 2; int m[20], nom[20]; cin>>k>>n; for(i=1; i<=k; i++) {m[i]=0; nom[i]=2014*100+i; } for(i=1; i<=n; i++) { cin>>a; j=a%100; m[j]++; } for(i=1; i<=k; i++) for(j=1; j<=k-i; j++) if(m[j]<m[j+1]) { b=m[j]; b 1=nom[j]; m[j]=m[j+1]; nom[j]=nom[j+1]; m[j+1]=b; nom[j+1]=b 1; } p 1=k+1; p 2=k+1; for(i=1; i<=k; i++) if((m[i]!=0) && (m[i]==m[1])) cout<<"I "<<' '<<nom[i]<<endl; else { j++; p 1=i; break; } for(i=p 1; i<=k; i++) if((m[i]!=0) && (m[i] == m[p 1])) cout<<"II "<<' '<< nom[i] <<endl; else { p 2=i; break; } for(i=p 2; i<=k; i++) if((m[i]!=0) && (m[i]==m[p 2])) cout<<"III"<<' '<<nom[i]<<endl; else break; return 0; }

var n, k, i, j, a, b, b 1, p 2: integer; m: array [1. . 20] of integer; n: array[1. . 20] of integer; Readln(k, n); For i: =1 to k do begin m[i]: =0; nom[i]: =2014*100+i; end; For i: =1 to n do begin Readln(a); j: =a mod 100; m[j]: =m[j]+1; End; For i: =1 to k do For j: =1 to k-I do if(m[j]<m[j+1]) then begin b: =m[j]; b 1: =nom[j]; m[j]: =m[j+1]; nom[j]: =nom[j+1]; m[j+1]: =b; nom[j+1]: =b 1; End; Pascal P 1: =k+1; P 2: =k+1; for i: =1 to k do if((m[i]<>0) and (m[i]=m[1])) then Writeln(‘I ‘, nom[i]) else begin j: =j+1; p 1: =i; break; end; for i: =p 1 to k do if((m[i] <> 0) and (m[i] = m[p 1])) then Writeln(‘II ‘, nom[i]) else begin p 2: =i; break; end; for i: =p 2 to k do if((m[i] <>0 ) and (m[i]=m[p 2])) then Writeln(‘III ‘, nom[i]) else break; End.

If(b/a>0) then Else Writeln(‘нет решения)’

С++ #include <iostream> using namespace std; //задана последовательность из 6 различных натуральных чисел //найти номер максимального четного элемента int main() { int a[7]; int i, k, max; for(i=1; i<=6; i++) cin >> a[i]; max=a[i]; for(i=1; i<=6; i++) if((a[i] > max) && (a[i]%2 ==0)) {max=a[i]; k=i; } } cout << max << endl; return 0; Pascal Var I, k, max : integer; a: array[1. . 7] of integer; begin for i: =1 to 6 do readln(a[i]); max: =a[i]; for i: =1 to 6 do if((a[i] > max) and (a[i] mod 2 =0)) then begin max: =a[i]; k: =i; End; Writeln(max); End.

7 124356 max=a[i]; max= 0; Max: =a[i]; Max: = 0; cout << max << endl; cout << k << endl; writeln(max); writeln(k);

С++ Pascal #include <iostream> using namespace std; //задана последовательность из 6 различных натуральных чисел //найти номер максимального четного элемента int main() { int a[7]; int i, k, max; for(i=1; i<=6; i++) cin >> a[i]; max=0; for(i=1; i<=6; i++) if((a[i] > max) ) { k=max; } } cout << k << endl; return 0; Var A: array [1. . 7] of integer; i, k, max: integer; begin for i: =1 to 6 do readln(a[i]); max: =0; for i: =1 to 6 do if((a[i] > max) ) then k=max; writeln(k); end.

7 124356 if((a[i] > max) ) if((a[i] > max) && (a[i]%2==0)) { k=max; } { max= a[i]; k=I; } 7 124356 if((a[i] > max) ) then if((a[i] > max) and (a[i]%2==0)) then k: =max; begin max: = a[i]; k: =I; End;

С++ Pascal #include <iostream> using namespace std; //задана последовательность из 6 натуральных чисел //найти максимальный номер четного элемента int main() { int a[7]; int i, k, max; for(i=1; i<=6; i++) cin >> a[i]; for(i=1; i<=6; i++) if(i%2 ==0) { k=i; } cout << i << endl; return 0; var a: array[1. . 7] of integer; i, k, max: integer; begin for i: =1 to 6 do readln(a[i]); for i: =1 to 6 do if(I mod 2 =0) then k: =i; writeln(i); end.

6 124356 if(i%2 ==0) If(a[i]%2==0) if(I mod 2 =0) then If(a[i] mod 2=0) then cout << i << endl; cout << k << endl; writeln(i); writeln(k);

С++ Pascal #include <iostream> using namespace std; //задана последовательность из 6 натуральных чисел //найти минимальный номер максимального четного элемента int main() { int a[7]; int i, k, max; for(i=1; i<=6; i++) cin >> a[i]; max=a[1]; for(i=6; i>=1; i--) if((a[i]%2 ==0) && (a[i]>max)) { k=i; max=a[i]; } cout << k << endl; return 0; } Var a: array[1. . 7] of integer; i, k, max: integer; for i: =1 to 6 do readln(a[i]); max: =a[1]; for i: =6 downto 1 do if((a[i] mod =0) and (a[i]>max)) then begin k: =i; max: =a[i]; end; Writeln(k); End.

5 122422 max=a[1]; max=0; max: =a[1]; max: =0; if((a[i]%2 ==0) && (a[i]>max)) if((a[i] mod 2 =0) and (a[i]>max)) then if((a[i] mod 2 =0) and (a[i]>=max)) then if((a[i]%2 ==0) && (a[i]>=max))

С++ Pascal #include <iostream> using namespace std; //задана последовательность из 6 натуральных чисел //найти минимальный номер максимального четного элемента int main() { int a[7]; int i, k, max; for(i=1; i<=6; i++) cin >> a[i]; max=0; for(i=1; i<=6; i++) if((a[i]%2 ==0) && (a[i]>=max)) { k=i; max=a[i]; } cout << i << endl; return 0; } Var a: array[1. . 7] of integer; i, k, max: integer; for i: =1 to 6 do readln(a[i]); max: =0; for i: =1 to 6 do if((a[i] mod =0) and (a[i]>=max)) then begin k: =i; max: =a[i]; end; Writeln(i); End.

6 122124 for(i=1; i<=6; i++) for(i=6; i>=1; i--) For i: =1 to 6 do For i: =6 downto 1 do cout << i << endl; cout << k << endl; Writeln(i); Writeln(k);

С++ Pascal #include <iostream> using namespace std; //задана последовательность из 6 натуральных чисел //найти максимальный номер минимального четного элемента int main() { int a[7]; int i, k, min; for(i=1; i<=6; i++) cin >> a[i]; min=a[1]; for(i=1; i<=6; i++) if((a[i]%2 ==0) && (a[i]<min)) { k=i; min=a[i]; } cout << k << endl; return 0; } Var a: array[1. . 7] of integer; i, k, max: integer; for i: =1 to 6 do readln(a[i]); min: =a[1]; for i: =1 to 6 do if((a[i] mod 2 =0) and (a[i]<min)) begin k: =i; min: =a[i]; end; Wtiteln(k); End.

2 124444 cin >> a[i]; min=a[1]; {cin >> a[i]; if(a[i]%2==0) min=a[i]; } if((a[i]%2 ==0) && (a[i]<min)) if((a[i]%2 ==0) && (a[i]<=min)) 2 124444 readln(a[i]); Min: =a[1]; begin Readln(a[i]); if(a[i] mod 2 =0) then min: =a[i]; if((a[i] mod 2 =0) and (a[i]<min)) then if((a[i] mod 2 =0) and (a[i]<=min)) then

С++ Pascal #include <iostream> using namespace std; //задана последовательность из 6 целых чисел //найти произведение индексов четных элементов. int main() { int a[7]; int i, k; k=1; for(i=1; i<=6; i++) {cin >> a[i]; } for(i=1; i<=6; i++) if((a[i]%2 ==0)) { k=k*a[i]; } cout << i << endl; return 0; Var a: array[1. . 7] of integer; i, k, max: integer; for i: =1 to 6 do readln(a[i]); for i: =1 to 6 do if((a[i]mod 2 =0)) then K: =k*a[i]; Writeln(i); End.

6 161357 { k=k*a[i]; } { k=k*i; } K: =k*a[i]; k: =k*i; cout << i << endl; cout << k << endl; writeln(i); writeln(k);

8 126211 if((a[i]%2 ==0) && (i%2 ==0)) if((a[i] mod 2 =0) and (I mod 2 =0)) then if((a[i]%2 ==0) && (i%2 !=0)) { s=s+i; } { s=s+a[i]; } if((a[i] mod 2 =0) and (I mod 2 <>0)) then s: =s+i; s: =s+a[i];

С++ Pascal #include <iostream> using namespace std; //Задано натуральное число <100000 //Найти максимальную нечетную цифру //в записи этого числа int main() {int n, max, k; cin >> n; max=0; while(n) { k=n%10; if(k>max) max=k; n=n/10; } cout << k << endl; return 0; } Var n, max, k : integer; Readl(n); Max: =0; while(n <> 0) do begin k: =n mod 10; if(k>max) then max: =k; n=n div 10; End; Writeln(k) End.

1 723 if(k>max) max=k; if((k%2!=0) && (k>max)) max=k; 1 723 if(k>max) then max: =k; if((k mod 2<>0) and (k>max)) then max: =k; cout << k << endl; cout << max << endl; writeln(k); writeln(max);

С++ #include <iostream> using namespace std; //Задано натуральное число <100000 //Найти максимальную нечетную цифру //в записи этого числа int main() {int n, max, k; cin >> n; max=9; while(n) { k=n%10; n=n/10; if((n%2!=0) && (k>max)) max=k; } } cout << max << endl; return 0; Pascal var n, max, k: integer; Readln(n); Max: =9; while(n<>0) do begin k: =n mod 10; n=n div 10; if((n mod 2<>0) and (k>max)) then max: =k; End; writeln(max); End.

9 923 max=9; max=0; Max: =9; Max: =0; if((n%2!=0) && (k>max)) max=k; if((n mod 2<>0) and (k>max)) then max: =k;

С++ Pascal #include <iostream> using namespace std; //Задано натуральное число <100000 //Найти произведение четных цифр //из этого числа int main() {int n, s, k; cin >> n; s=0; while(n) { k=n%10; if(k%2==0) s=s*k; n=n/10; } } cout << k << endl; return 0; Var n, s, k: integer; Radln(n); S: =0; while(n <> 0) do begin k: =n mod 10; if(k mod 2=0) then s: =s*k; n: =n div 10; end; Writeln(k); End.

1 120 s=0; s=1; S: =0; S: =1; cout << k << endl; cout << s << endl; Writeln(k); Writeln(s);