Написать программу y={ (a=3), если a>0

{ (a-3), в остальных случаях

Question

Серапион

20 октября, 13:31

+2

Ответы (1)

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

Поляша · Answer 1

Var

a, y:integer;

begin

readln (a) ;

if a>0 then

begin

a:=3;

writeln (a) ;

end

else

begin

y:=a-3;

writeln (y) ;

end;

end.

Написать программу y={ (a=3), если a>0{ (a-3), в остальных случаях