Question

Помогите пожалуйста, нужно написать программу в паскале) Очень надо

Answer 1

Ответ:

a = 8

b = 5

c = 1

Объяснение:

program HelloWorld;

var a,b,c : Integer;

begin

  a := 8; b:=5; c:=-1;

if a - b > 5 then

begin

if c > b then c:= c - b;

end else if (c <  b) AND (c > b) then

begin

if c > b-a then  c := c + 3

end else c := c + 2;

writeln('a = ', a);

writeln('b = ', b);

writeln('c = ', c);

 

end.