Const r1=20.0;
var R2,Pi:real;
begin
Pi:=4*arctan(1);
writeln('Введите радиус'); readln(R2);
writeln('Результат: ',Pi*(sqr(R2)-sqr(r1)))
end.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadAllLines('input.txt'); // массив строк
var n:=a[0].ToWords.Count; // количество чисел в строке
var x:=new real[a.Length,n]; // создана матрица нужного размера
for var i:=0 to a.Length-1 do
x.SetRow(i,a[i].ToReals); // матрица заполнена значениями
x.Println(5,1); Writeln(a.Length*5*'-'); // вывод матрицы
// получим средние по колонкам, округлим дробную часть до двух знаков
var y:=x.Cols.Select(c->Round(c.Average*100)/100).ToArray;
y.Println; // контрольный вывод средних, можно убрать
WriteAllText('output.txt',y.JoinIntoString(' ')) // вывод в файл
end.
<u>Пример работы</u>
7.9 8.8 1.3 4.2 7.8 -6.2
2.6 -6.6 -6.7 -8.4 1.0 -7.1
4.4 7.0 -4.2 -9.9 -0.1 3.5
4.1 -2.0 -8.5 -8.4 -7.1 -2.3
0.9 6.7 -2.4 0.4 9.0 7.2
9.8 -8.4 -6.9 1.4 4.5 -9.3
------------------------------
4.95 0.92 -4.57 -3.45 2.52 -2.37
Рисуй с помощью кисти:
найди панель управления, там выбери кисть и толщину, и начинай рисовать.
Если ты плохой художник, или тебе лень, рисуй с помощью линий, так же найди панель управления, выбери толщину и эта линия ещё называется по другому - инструмент; кривая или прямая. и не забудь про инструменты: окружность, многоугольник, линия и т. д.
Const
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.<span>
</span>