6- c
8-c
9-b
10-a
В 10 не уверен.
У меня вариант с тремя словами(хотя работает и с двумя)
Дано число
Abc
Надо из этого числа отделить каждую цифру
A:=abc div 100
b:= abc div 10 mod 10
c:= abc mod 10
Теперь надо вывести новое число
cba:= c*100+b*10+a
//PascalABC.Net 3.0, сборка 1052
type
Balls = class
r:real;
constructor (rr:real);
begin r:=rr end;
function VB:real;
begin
VB:=4*Pi*r*sqr(r)/3
end;
end;
var
b:Balls;
R:real;
begin
Write('Радиус шара= '); Read(R);
b:=new Balls(R);
Writeln('Объем шара равен ',b.VB:0:3)
end.
<em><u>Тестовое решение:</u></em>
Радиус шара= 25
Объем шара равен 65449.847