Помогите пожалуйста решить,завтра ** контрольную,от этого зависит четвертная.Pascal

Question

Помогите пожалуйста решить,завтра на контрольную,от этого зависит четвертная.Pascal

---

---

Comments

Программу составить надо? Или что?

---

Составить программу

Answer 1

1.

Program amt;

var z,y:integer;

begin

 writeln('Введите числа Z и Y:');  

 read(z,y);

 

 if(z-y > 1) then writeln((z-y)*2)

 else writeln(z+y);

 

end.

4.

a)1

b)8

c)10

Если нужна программа:

Program amt;

var a,b,z:integer;

begin

 writeln('Введите A и B:');

 readln(a,b);

 

 z:=10;

 if not(a>b) then z:=z

 else if (b<0) then z:=z-2</p>

 else if not(b<0) then z:=1;</p>

 

 writeln(z);

end.