var a,b,s: integer;
begin
readln(a);
while a>=10 do
begin
b:=a mod 10;
s:=s+sqr(b);
a:=a div 10;
end;
a:=a*a;
s:=s+a;
writeln(s);
readln;
end.
В s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!
Жёсткий диск, флешка, диск , дискета, папка.
РУЧЕЙ - РРУЧЕЙ - ССФШЁК - ССФШЁКС - ТТХЩЖЛТ
Если тебе не сложно, отметь пож этот ответ лучшим
<span> Системы программирования -это </span>система<span> для разработки новых программ на конкретном языке </span>программирования<span>. Современные </span>системы программирования<span> обычно предоставляют пользователям мощные и удобные средства разработки программ.
</span>
Язык программи́рования<span> — </span>формальный язык<span>, предназначенный для записи </span>компьютерных программ<span>. Язык программирования определяет набор </span>лексических<span>, </span>синтаксических<span> и </span>семантических<span> правил, определяющих внешний вид программы и действия, которые выполнит исполнитель (обычно — </span>ЭВМ<span>) под её управлением. </span>
<u>На Паскале:</u>
1) for i:=1 to 5 do Read(a[i]);
2) Writeln('Добрый день');