Редактор какой нибудь газеты, бухгалтер, модератор, диспетчеры.
Var
a:array [1..9] of integer;
i,k,b:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=random(141)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]<=99 then
if ((a[i] div 10) mod 2)<>0 then k:=k+a[i];
if a[i]>99 then
begin
b:=a[i] div 10;
if (b mod 2)<>0 then k:=k+a[i];
end;
end;
writeln('Сумма элементов у которых вторая с конца цифра нечетная: ',k);
end.
Program ghjkligohqfaqruyfgeyfqgwqc;
var a, b, c, i :integer;
BEGIN
writeln (' Введите два числа, первое должно быть меньше и еще число делитель');
readln (a, b, c);
for i:=a to b do
begin
if (a*a) mod c=0 then
writeln (a*a);
a:=a+1;
end;
end.
#include <iostream>
#include <cmath>
using namespace std;
int main(){
float x = 1.9;
int a = 2;
float b = 1.1;
double e = 2.71828182846;
cout << log(a * pow(x, 3) + b) / pow(e, x + 1);
return 0;
}