Заданы числа a и b. определите, эти числа одного или разных знаков.

Var a,b :integer;
begin
writeln('a');
readln(a);
writeln('b');
readln(b);
while a>0 do
 Begin 
  if b>0 then
   writeln ('a и б одного знака');
  else 
  writeln ('a и б разного знака);
 end;
while a<0 do
 Begin 
  if b<0 then
   writeln ('a и б одного знака');
  else 
  writeln ('a и б разного знака);
end;
end.

язык программирования питон

1)

import math;

r = int(input());

print(2 * math.pi * r);

print(math.pi * r ** 2);

2)

1.

import math;

a = float(input());

b = float(input());

print((math.sqrt(a) + math.sqrt(b)) / (math.sqrt(a ** 2 + b ** 2)));

2.

import math;

z = float(input());

y = float(input());

print((z * y) / (math.sqrt(z ** 3 + y ** 3)));

3.

import math;

x = float(input());

print(math.abs(x ** 2 - 2.4 * x + ((x + 1) / (x ** 2 + 2;

3) понял что надо среднее арифмитическое сделать из трех чисел, если что-то не так понял напиши.

a = float(input());

b = float(input());

c = float(input());

print((a + b + c) / 3);

4) не понял условие, перевод не понятный. Напиши если сможешь качественно перевести.

вариант Б тоже-самое что и 4 задание.

{$R+,S+,Q+} uses  SysUtils; const R=1000;type Mas= array [0..R] of integer;var  a: Mas;  en,n: integer;  x,y,z,q,w: char;function push(n: integer): string;begin  a[en]:=n;  en:=en+1;  push:='ok';end;function pop(): integer;begin  en:=en-1;  pop:=a[en];  a[en]:=0;end;function back(): integer;begin  back:=a[en-1];end;function size(): integer;begin  size:=en;end;function clear(): string;begin  en:=0;  clear:='ok';end;function exit(): string;begin  exit:='bye';end;begin  en:=0;  repeat    read(x);    if x='p' then    begin      read(y);      if y='u' then      begin        read(z,q,w);        readln(n);        writeln(push(n))      end else begin        readln(z);        writeln(pop());      end;    end;    if x='b' then    begin      readln(y,z,q);      writeln(back());    end;    if x='s' then begin      readln(y,z,q);      writeln(size());    end;    if x='c' then begin      readln(y,z,q,w);      writeln(clear());    end;    if x='e' then begin      readln(y,z,q);      writeln(exit());    end;  until x='e';end.