Записать программу на языке Паскаль.

a:=7

b:=3

c:=a+b

если c>d, то S:=c-d

Иначе S:=d-c

Question

Эмилиана

3 марта, 22:02

+4

Ответы (1)

Знаете ответ на вопрос?

Никиха · Answer 1

Var a, b, c, d, S:integer;

begin

readln (d) ;

S:=0;

a:=7;

b:=3;

c:=a+b;

if c>d then

S:=c-d

else

S:=d-c;

writeln (S) ;

end.

Записать программу на языке Паскаль.a:=7b:=3c:=a+bесли c>d, то S:=c-dИначе S:=d-c