Program HelloWorld;
var S: double;
begin
writeln('Введите массу тела:');
readln(S);
writeln('Масса кислорода и атомов равна:');
S:=S*0.68;
writeln(S:15:2);
end.
Для Паскаля:
var f,x,b1,b2,b3:real;
begin
write('B1=');
read(b1);
write('B2=');
read(b2);
write('B3=');
read(b3);
write('x=');
read(x);
if x<6 then f:=x+b1;
if x=15 then f:=x/b2
else f:=x+b3;
writeln('f=',f);
end.
Нужно трёхзначное число разбить на 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,думаю знаешь как)