1 задани это снимок
2 ( спасидо дяде)
Обра́тное число́ (обратное значение, обратная величина) — это число, на которое надо умножить данное число, чтобы получить единицу. Два таких числа называются взаимно обратными.
VAR
x:array[1..100] of real;
n,i,c:integer;
BEGIN
write('n=');
readln(n);
for i := 1 to n do begin
write('x[', i, ']=');
readln(x[ i ]);
end;
c:=0;
for i := 1 to n-1 do if x[ i ]*x[ i+1 ]=1 then c:=c+1;
writeln('c=',c);
readln;
END.
3 for i:=1 to n-1
for j:= i+1 do
if a<a[j]>; a:=a[j]; a[j]:=b end
4 не знаю
Сложно . В каком ты классе
Var a,b:real;
begin
write('a, b: ');
readln(a,b);
writeln(a,' + ',b,' = ',a+b);
if a+b<1
then if a<b then a:=(a+b)/2 else b:=(a+b)/2
else if a<b then a:=a+b else b:=a+b;
writeln('a = ',a,' b = ',b);
end.
Пример:
a, b: -2.8 4.5
-2.8 + 4.5 = 1.7
a = 1.7 b = 4.5
1101011,1₂-100000₂-1+1000₂-1+0,01₂
Дурацкий местный шрифт не позволяет записать числа поразрядно в столбик, поэтому решение на картинке.
Ответ 1010001,01₂
Var a,b,c,d:integer;
begin
writeln('введите числo');
readln(a);
b:=0;
while a<>0 do begin
c:=a mod 10;
a:=a div 10;
if c=3 then b:=b+1;
end;
writeln('количество троек в числе ',b);
<span>end.</span>