<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>
Дробное значение же получается.
1024х2 = 2048
1024 * 0.2 = 204.8
итого 2252,8 ....
как-то некорректно выходит
Var skorost,pyt:real;
begin
writeln('Скорость равна = ');
read(skorost);
writeln('Путь равен = ');
read(pyt);
writeln('Время равно = ',pyt/skorost);
end.
44,94,94(четные) 47,97,99,97,99 (не четные(