Var i,k,n: integer;
begin
for i:=100 to 999 do
begin
k:=i; n:=0;
repeat
n:=n+round(power(k mod 10,3));
k:=k div 10;
until k=0;
if n=i then write(i,' ');
end;
end.
153 370 371 407
1. 9379 из десятичной в двоичную:
10010010100011
2. 9379 из десятичной в восьмеричную:
22243
3. 9379 из десятичной в шестнадцатеричную:
24А3
1.
<span>var i:integer;
begin
for i:=10 to 99 do writeln(i);
end<span>.
Результат:
10
11
12
...
98
99
2.
var i:integer;
begin
for i:=10 to 99 do
if i mod 10=5 then writeln(i);
end.
Результат:
15
25
...
95
3.
var i:integer;
begin
for i:=1 to 15 do
write(random(21)+10,' ');
end.
Пример:
<span>25 19 12 11 25 27 30 19 21 19 15 10 14 22 22</span></span></span>
Полагаю здесь ответ нужно написать
При итерациях:
1) s = 3
2) s = 6
3) s = 18;
Вывод 18
Так ты же уже цифры поставил