Sub aaa()
a = InputBox("A=")
b = InputBox("B=")
c = InputBox("C=")
x = InputBox("x=")
z = x ^ 2 + Abs(b * x - 3 * c) / Log(x ^ 2 + b * c + a)
Cells(1, 1) = z
End Sub
program c1;
uses crt;
var a: array [1..5] of integer;
max,k,i: integer;
begin
clrscr;
for i:=1 to 5 do read (a[i]);
k:=0;
max:=1;
for i:=2 to 5 do
if a[i]>a[max] then max:=i;
for i:=1 to 5 do
if a[i]=a[max] then k:=k+1;
writeln ('Кол-во макс. элементов = ',k);
end.
<span>Ввести X</span>
<span>Ввести Y</span>
<span>R=6</span>
<span>A=2</span>
<span>Если Х²+Y²>R² То
</span><span> "Не
принадлежит"</span>
Иначе
<span>
Если X<A То
</span><span> "Не
принадлежит"</span><span>
Иначе</span>
<span> "Принадлежит"
</span><span> Конец Если</span>
<span>Конец Если</span>
На языке паскаль, за
взято 3,14:
program ball;
var s,r, r2 : real;
begin
writeln('Введите радиус шара');
readln(r);
r2:=sqr(r);
s:=4*3.14*r2
writeln('Площадь шара равна ', s);
readln;
end.