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
Большинство языков программирования использует специальныеконструкции для определения и<span> манипулирования</span>
Вариант а) отпадает, так как в 1 строке получим произведение 7 единиц=1, а должно получиться 0
Вариант б) отпадает, так как1 строке получим сумму 7 единиц=1, а должно получиться 0
В варианте В) прошла 1 строка, получили в итоге 0, но не прошла вторая строка. Получается 1, а должно быть равно 0
Остается вариант Г)
Если подставить значения, то все строки прошли тест.
Ответ: Г
Var
a,i,k:integer;
begin
readln(a);
while a<>0 do begin
if a mod 2=0 then
k:=k+1;
a:=a div 2;
end;
writeln(k);
<span>end.</span>
Вот код:
word = input()
while len(word) >= 1:
print(word)
word = word[1:-1]