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

@ByJlKan · Регистрация: 25.01.2017

Author24 — интернет-сервис помощи студентам

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

@Tosse · 25.01.2017, 13:39

Pascal

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.

@ByJlKan · 26.01.2017, 12:40 **[ТС]**

Спасибо

@ByJlKan 0 / 0 / 0 Регистрация: 25.01.2017 Сообщений: 4
		1
	Определение площади круга, длины окружности и объема шара 25.01.2017, 08:39. Показов 3073. Ответов 2 Метки нет (Все метки) Определение площади круга, длины окружности и объема шара с использованием в качестве радиуса суммы знаков трехзначного числа. 0

@ByJlKan 0 / 0 / 0 Регистрация: 25.01.2017 Сообщений: 4
	26.01.2017, 12:40 [ТС]	3
	Спасибо 0

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

Решение