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

Question

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

---

Comments

Язык паскаль?

---

да

---

Через 7 минут будет

---

Спасибо

---

делаете?

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<br>  begin
  if (x  if (y  if (z  end
  else
  if x 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'); <br> if (x       else
 if y               else z:=(x+y)/2;   
      end     
    else writeln ('Сумма больше 1');   
  writeln ('X = ',x:3:2,' Y = ',y:3:2, ' Z = ',z:3:2); 
Readln();
end.

Comments

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