Разрабатывают разработчики.
исполняет исполнитель.
Всегда Ваш, Капитан Очевидность.
3 страницы текста содержат 3937.5 байт информации
Program CircleS;
Uses Crt;
const pi=3.14;
var S,r:real;
begin
clrscr;
write('Введите радиус круга:');
readln(r);
S:=pi*(r*r);
writeln('Площадь круга:',S);
readkey;
end.
Вот решение, посмотри на скринах, вроде все правильно
Хм..
-23 при условии, что a/k-b, а не a/(k-b)
если учесть условие a/(k-b), то -35