Question

Паскаль. НАПИШИТЕ ПРОГРАММУ ПОЖАЛУЙСТААААА
Квадрат двигается при нажатии стрелок, однако не может выйти за границы синего квадрата.

Answer 1

Program discriminant;

var a,b,c,d,e,t,f,y:real;

begin

 Write('Введите толщину кольца: ');

 read(t);

 Write('Введите диаметр внутреннего круга: ');

 read(d);

 Writeln('Напомню что площадь кольца находится по формуле S = π*(R² - r²)');

 a:=d/2; // Нахождение внутреннего радиуса кольца.

 b:=a+t; // Нахождение внешнего радиуса кольца.

 c:=a*a; // Возведение в квадрат

 e:=b*b; // Возведение в квадрат

 f:=c-b; //  

 y:=3.14*f;

 write('Площадь кольца равна: ', y);

 

 

 

 

 

 

 

end.