Надеюсь азы ты знаешь, поэтому кидаю основной код
{Pascal ABC.NET}
1)
readln(a,h);
s:=0.5*a*h;
write(s);
2)
readln(a,b);
if (a>=-1) and (a<=1) then writeln('A принадлежит') else write('A не принадлежит');
if (b>=-1) and (b<=1) then writeln('B принадлежит') else write('B не принадлежит');
3) вот тебе функция в современных паскалях она везде используется, если нужна будет программа где ее дописать или как использовать, в лс
function power (a, b : real) : real;
begin
if a > 0 then power := exp (b * ln (a))
else
if a < 0 then power := exp (b * ln (abs (a)))
else power := 0end;
4) самую простенькую задачу на оператор выбора выложу
var a,b:integer;
d:real;
c:char;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Выберите арифметическое действие: ');
readln (c);
case c of
'+': d:= a+b;
'-': d:= a-b;
'*': d:= a*b;
'/': d:= a/b;
end;
write('Результат: 'd:10:4);
1)
var a:string;
s,i:integer;
begin
read(a);
s:=0;
for i:=1 to length(a) do
if a[i]='o' then s:=s+1;
Writeln(s);
end.
2)
var A:array[1..1000] of integer;
N,i:integer;
s:real;
begin
Read(N);
s:=0;
for i:=1 to N do
read(A[i]);
for i:=1 to N do
s:=s+a[i];
s:=s/N;
writeln(s:3:3);
end.
3)
var a:string;
s:integer;
begin
read(a);
s:=length(a);
if a[1]=a[s] then writeln('Da') else writeln('Net');
end.
4)
var a,b:integer;
f:text;
begin
assign(f,'in.txt');
reset(f);
read(f,a,b);
Writeln(a+b);
Writeln(a-b);
Writeln((a+b)/2);
close(f);
end.
Вроде все корректно, проверь
В 4 задаче, название файла in.txt можешь поменять на любое другое
По всем вопросам пиши в ЛС
