Определение площади круга, длины окружности и объема шара - Pascal ABC

Формулировка задачи:

Определение площади круга, длины окружности и объема шара с использованием в качестве радиуса суммы знаков трехзначного числа.

Код к задаче: «Определение площади круга, длины окружности и объема шара - Pascal ABC»

textual
var
a,r:integer;
begin
repeat
writeln('Введите трехзначное число');
readln(a);
until (a > 99) and (a < 999);
r:=a mod 10 + a div 100 + (a div 10) mod 10;
write(r);
writeln('Площадь круга = ', Pi*r*r);
writeln('Длина окружности = ', 2*Pi*r);
writeln('Объём шара = ', 4/3*Pi*r*r*r);
end.

12   голосов, оценка 4.083 из 5


СОХРАНИТЬ ССЫЛКУ