Написать на языке pascalabc решение следующей : найдите площадь кольца, ограниченного двумя окружностями. радиусы произвольные.

veronikakorobko veronikakorobko    1   19.05.2019 23:10    2

Ответы
Molly11111 Molly11111  13.06.2020 05:40

program Площадь кольца;

var A, B, C, S: real;

begin

writeln ('Радиус большего круга = ',A,' ');

readln (A);

writeln ('Радиус меньшего круга = ',B,' ');

readln (B);

C:=3,14 ;

writeln ('\pi = ',C,' ');

S:=C*SQR(A)-C*SQR(B);

writeln ('S кольца = ',S,' ')

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика