Первый член последовательности равен 36. каждый последующий вычисляется из предыдущего как сумма кубов всех его цифр. второй член последовательности равен 27_216=243. чему равен 127-ой член?
Программа на языке PascalABC.Net: var sPred,sSucc,i,d:integer; begin sPred:=36; for i:=2 to 127 do begin sSucc:=0; while sPred>0 do begin d:=sPred mod 10; sSucc:=sSucc+d*sqr(d); sPred:=sPred div 10 end; sPred:=sSucc end; Writeln(sSucc) end.
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017 // Внимание! Если программа не работает, обновите версию!
a)
begin var (a,b):=ReadReal2('Введите через пробел два числа:'); if a>b then Writeln('Первое число больше второго') else if b>a then Writeln('Второе число больше первого') else Writeln('Числа равны') end.
b)
begin var (a,b):=ReadReal2('Введите через пробел два числа:'); if a<b then Writeln('Первое число меньше второго') else if b<a then Writeln('Второе число меньше первого') else Writeln('Числа равны') end.
Смотри. 1. Ни Климов, ни Ушаков не умеют играть ни на одном музыкальном инструменте. Следовательно, они не учителя музыки. 2. Учителя рисования и информатики в воскресенье уезжают на дачу к Михеенко. Следовательно, Михеенко не учитель рисования и информатики. 3. Жебин попросил учителя рисования написать картины с его изображением и изображением Климова. Следовательно, Жебин и Климов не учителя рисования. Из этого следует, что учитель рисования - Ушаков. 4. Учителя рисования и информатики в воскресенье уезжают на дачу к Михеенко. Раз учитель рисования Ушаков, а он не знаком с Климовым, значит Климов не учитель информатики, а учитель матеметики. Михеенко - учитель музыки, а Жебин учитель информатики.
var
sPred,sSucc,i,d:integer;
begin
sPred:=36;
for i:=2 to 127 do
begin
sSucc:=0;
while sPred>0 do begin
d:=sPred mod 10;
sSucc:=sSucc+d*sqr(d);
sPred:=sPred div 10
end;
sPred:=sSucc
end;
Writeln(sSucc)
end.
Результат выполнения программы:
153