В майкрасофт ексель смоделируй и перениси ...
Var r,s:real;
begin
write('R = ');
readln(r);
s:=2*pi*r*r;writeln('Площадь круга = ',s:6:3);
end.
Пример:
<span>R = 2
Площадь круга = 25.133</span>
+ это прибавлять или увеличивать число кадром
А - это уменьшить число кадров
Var
i, k, x: integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(x);
if x mod 2 = 0 then //если x четный
inc(k); //увеличиваем k на 1
end;
writeln('Четных: ', k);
writeln('Нечетных: ', 10-k);
<span>end.</span>