...профессия человека,...талант,...заниматься литературным трудом.
1-десяток тысяч
3-единица тысяч
7-сотня
7-десяток
7-единица
Random(10)+1;
random(11)-5;
random(11)+10;
random(101)-35;
const n=10;
var
x: array [1..n] of integer;
kmax,k, smax : integer;
begin
randomize;
smax:=-99;
for k:=1 to n do
begin
x[k]:=random(70)-35;
write(x[k],' ');
if x[k]>smax then
begin
smax:= x[k];
kmax:=k;
end;
end;
writeln();
writeln(smax);
writeln(kmax);
end.
#include <iostream>
using namespace std;
int main(){ int i, num, sum; sum = 0; i = 1; cin >> num; while (i < num) { if (num % i == 0) { sum += i; } i++; } if (sum == num) { cout << sum; } return 0;}