Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub
Мне кажется, что это файловая система
Var n,i,ks,kp,h:integer;
begin;
kp:=1;
readln(n);
for i:=1 to n do
begin;
readln(h);
kp:=kp*h;
ks:=ks+h;
end;
writeln('Сумма:',ks);
write('Произведение:',kp);
end.
//Pascal
//Функция факториала
function fact(n: integer): real;
begin
if (n = 0) then fact := 1
else fact := n * fact(n - 1);
end;
//Main
var
a: real;
x, lim: integer;
begin
write('Введите x: '); readln(x);
lim := x; a := 0;
for x := 1 to lim do
begin
//a := a + (power(2, x) * fact(x))/(power(x, x));
a := a + ((exp(ln(2) * x)) * fact(x))/(exp(ln(X) * x));
end;
writeln('a = ', a:5:3);
readln;
end.
Элементы массива - это числа 1, 2, 3, ..., 100
Простые числа - 2, 3, 5, 7, 11, 13, 17, 19, ...
Расчет по программе - в прилагаемом файле.
На экран выведется значение num[21-2] = num[19] = 19
Ответ: 19