<span>uses crt;
var r1,r2:real;
function Scirkle(r:real):real;
begin
Scirkle:=pi*sqr(r);
end;
begin
clrscr;
writeln('r1,r2');
readln(r1,r2);
writeln('Площадь кольца равна ',Scirkle(r1)-Scirkle(r2));
readln;
end.</span>
#include <stdio.h>
#include <conio.h>
int main (int argc, char *argv[])
{
int S = 0, i;
for(i = 1; S<50; i++)
S+=i;
printf("S = %d",S);
getch();
}
3. <span>Показ слайдов (в нём нельзя менять)</span>
Var r,s,p:real;
begin
write('R=');
readln(r);
s:=Pi*sqr(r);
p:=2*Pi*r;
writeln('Площадь: ',s);
writeln('Периметр: ',p)
<span>end.</span>