Язык Pascal uses crt; var cs1,cs2,res,change:integer; TD:string; function FromDec(n,r:longint):string; var s:String; const digit:string[16]='0123456789ABCDEF'; begin s:=''; repeat s:=digit[(n mod r)+1]+s; n:=n div r; until n=0; FromDec:=s; end; function ToDec(n:string;r:longint):longint; var m,i:longint; const digit:string[16]='0123456789ABCDEF'; begin m:=0; while n[1]='0' do delete(n,1,1); for i:=1 to length(n) do m:=m*r+pos(n[i],digit)-1; ToDec:=m; end; begin writeln('Введите из какой CC:'); repeat readln(cs1); until (cs1>=2) and (cs1<=36); writeln('Введите число в соответствии с CC:'); readln(TD); writeln('Введите в какую CC:'); repeat readln(cs2); until (cs2>=2) and (cs2<=36); writeln('Перевод из ',cs1,' CC --> ',cs2,' CC:'); writeln(FromDec(ToDec(TD,cs1),cs2)); end.
#include <iostream>
#include <iterator>
#include <vector>
using namespace std;
int main() {
int n = 5;
int m = 6;
vector<vector<int>> a(n, vector<int>(m));
for (int i = 0; i < n; ++i) {
for (int j = 0; j < m; ++j)
cin >> a[i][j];
}
vector<double> ans(m);
for (int i = 0, q = 0; i < m; ++i, ++q) {
int sum = 0;
int cnt = 0;
for (int j = 0; j < n; ++j) {
if (a[j][i] < 0) {
sum += a[j][i];
++cnt;
}
}
if (sum)
ans[q] = sum / (double)cnt;
}
copy(ans.cbegin(), ans.cend(), ostream_iterator<double>(cout, " "));
}
uses
crt;
var
cs1,cs2,res,change:integer;
TD:string;
function FromDec(n,r:longint):string;
var
s:String;
const
digit:string[16]='0123456789ABCDEF';
begin
s:='';
repeat
s:=digit[(n mod r)+1]+s;
n:=n div r;
until n=0;
FromDec:=s;
end;
function ToDec(n:string;r:longint):longint;
var
m,i:longint;
const
digit:string[16]='0123456789ABCDEF';
begin
m:=0;
while n[1]='0' do
delete(n,1,1);
for i:=1 to length(n) do
m:=m*r+pos(n[i],digit)-1;
ToDec:=m;
end;
begin
writeln('Введите из какой CC:');
repeat
readln(cs1);
until
(cs1>=2) and (cs1<=36);
writeln('Введите число в соответствии с CC:');
readln(TD);
writeln('Введите в какую CC:');
repeat
readln(cs2);
until
(cs2>=2) and (cs2<=36);
writeln('Перевод из ',cs1,' CC --> ',cs2,' CC:');
writeln(FromDec(ToDec(TD,cs1),cs2));
end.