var
x, f : real;
begin
write('введите x=');
readln(x);
if x < 3 then f := ln(abs(2-x))
else if (x >= 3) and (x < 5) then f := x/(x-2)
else f := sqrt(x-4);
writeln('f=', f);
end.
Program n1;
const n=10;
var a: array[1..n] of integer;
i,sum: integer;
begin
sum:=0;
for i:=1 to n do
begin
readln(a[i]);
if i mod 2=0 then sum:=sum+a[i];
end;
writeln(sum);
end.
Program B;
type
t=array[1..20] of integer;
var
a:t;
N,i:byte;
S:integer;
begin
readln(N); //кол-во элементов в массиве
S:=0;
for i:=1 to N do
begin
read(a[i]);
S:=S+a[i];
end;
write(S);
end.
ПланшеТелефоНоутбук. Ноутбук начинается с В. Планшет с А.