var
rl,r2 : real; { радиус кольца и отверстия }
s : real; { площадь кольца }
begin
writeln('Введите исходные данные:');
write('радиус кольца (см) -> ');
readln(rl);
write('радиус отверстия (см) —> ');
readln(r2);
if rl > r2 then
begin
s:=PI*(sqr(rl)-sqr(r2));
writeln ('Площадь кольца ',s:6:2,' кв.см’);
end
else writeln ('Ошибка! Радиус отверстия не может быть ',
'больше радиуса кольца.');
writeln ('Для завершения работы программы нажмите <Enter>');
readln;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
