Тип круговой диаграммы, которая используется как средство сравнения данных
Чётные:6,12,18,452,398
Нечётные числа:771,11,5,29,9,13,99,53
Однозначные числа:6,5,9,
Двузначные числа:12,18,11,29,13,99,53
Трёхзначные числа:771,452,398
Четные однозначные числа:6,
Четные двузначные числа:12,18,
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Sqr(ReadReal / 4).Print
end.
<h2>Пример</h2><h3>20.8</h3><h3>27.04 </h3><h2>Пояснения</h2>
ReadReal - осуществаляет ввод вещественного числа (периметра).
ReadReal / 4 - находит сторону квадрата
Sqr(ReadReal / 4) - находит площадь квадрата
.Print - выводит значение того, что стоит до точки
Const n=3;
var a: array[1..n] of integer;
i, j, k: integer;
begin
randomize;
write ('Исходный массив: ');
for i := 1 to n do begin
a[i] := random(256);
write (a[i]:4); end;
writeln; writeln;
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;
write ('массив по возрастанию: ');
for i := 1 to n do
write(а[i]:4);
writeln;
readln;
<span>end.
______________________________
</span>
1. Math.sqrt(a+b)
2. 3.7*f2-5.36*x*x*x
3. (u+2*v)*((1.89*Math.abs(u)+0.15-0.68*v)/(1+Math.sqrt(u*u+v*v)))