Получить ответ

Компьютерный сервис Var    n,S:integer; Begin Write('n = '); ReadLn(n); S:=0; While n > 0 do    Begin    S:=S+Sqr(n mod 10);    n:=n div 10    End; WriteLn('S = ',S); End. 11.06.21

Alexander от 500 p. 4.9 66 отзывов Рейтинг: 17 568 3-й в Технологиях Общаться в чате Читать ответы

Похожие вопросы