Question

Решите пожалуйста мне срочно нужно

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

//6
Var
 a,b,c:integer;
begin
read(a,b,c);
 if a>=0 then a:=sqr(a);
 if b>=0 then b:=sqr(b);
 if c>=0 then c:=sqr(c);
writeln(a);
writeln(b);
writeln(c);
end.

//8
Var 
x,y,z:real;
begin
readln(x,y,z);
 if (x+y+z)<1 then
  begin
  if (x<y) and (x<z) then x:=(y+z)/2;
  if (y<x) and (y<z) then y:=(x+z)/2;
  if (z<y) and (z<x) then z:=(y+x)/2;
  end
  else
  if x<y then x:=(y+z)/2 else y:=(x+z)/2;
 writeln(x);
 writeln(y);
 writeln(z);
end.  

Answer 2

Задача 6.
Program asd;
var a,b,c,s: real;
BEGIN
Write ('Введите a: '); readln (a);
Write ('Введите b: '); readln (b);
Write ('Введите c: '); readln (c);
if (a>=0) then begin a:=a*a;  Writeln('A: ',a);end;
if (b>=0) then begin b:=b*b; Writeln('B: ',b);end;
if (c>=0) then begin c:=c*c; Writeln('C: ',c);end;
Readln();end.


Задача 8.
Program asd;
var x,y,z,res,min: real;
BEGIN
Write ('Введите X: '); readln (x); 
Write ('Введите Y: '); readln (y);
Write ('Введите Z: '); readln (z); 
res:=x+y+z;   
 if res<1 then     begin       writeln ('Сумма меньше 1'); 
 if (x<y) and (x<z) then x:=(y+z)/2         
       else
 if y<z then y:=(x+z)/2       
               else z:=(x+y)/2;   
      end     
    else writeln ('Сумма больше 1');   
  writeln ('X = ',x:3:2,' Y = ',y:3:2, ' Z = ',z:3:2); 
Readln();
end.