X:integer;
y:real;
function f(a:real):real;
begin
if a>=0 then
begin
f:=exp(a*ln(10));
end;
if a<0 then
begin
f:=20*sqr(a);
end;
end;
begin
x:=-5;
while x>-6 do
begin
y:=(exp(3*ln(f))+f(x))/(abs(f(x+5)));
if x=0 then writeln('y = Рішення не має')
else writeln('y =', y);
x:=x+5;
while x>25 do
end;
end.
17.pas(20) : Нет перегруженной подпрограммы с такими типами параметров
var a: array [1..40] of integer;
i, s1, s2: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] mod 2 = 1) then
begin
s1 := s1 + a[i];
inc(s2);
end;
end;
writeln(s1 / s2);
end.
2)
var a: array [1..40] of integer;
i, q: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] <= 10) then q := q + a[i];
end;
writeln(q);
end.
3)
var a: array [1..40] of integer;
i, w: integer;
begin
for i := 1 to 40 do
begin
a[i] := random(20);
writeln('a[', i, '] => ', a[i]);
if (a[i] mod 3 = 0) then w := w + a[i];
end;
writeln(w);
end.