Нужно трёхзначное число разбить на 3.Для этого нам нужно 3 переменных, пусть это будет a,b,c.
Будем делать на примере числа 123, то есть n:=123.
Чтобы выделить единицу пишем это a:=n div 100;
Теперь выделяем двойку b:=(n div 10) mod 10;
Тройку c:=n mod 10.
Теперь собственно сама сумма, берём ещё одну переменную, пусть будет sum. sum:=a*a +b*b+c*c;
Ну а дальше просто выводи sum,думаю знаешь как)
Паскаль:
<span>const pi=3.14;
var r,v:real;
begin
write('R = ');
readln(r);
v:=4/3*pi*r*r*r;
writeln('V = ',v:4:1);
end<span>.
Пример:
</span><span>R = 4
V = 267.9</span></span>
Program chisla;
var a,b:integer;
q:real;
begin
read(a,b);
q:=(abs(a)+abs(b))/2;
writeln(q);
q:=sqrt(abs(a)*abs(b));
writeln(q);
end.