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

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

Question

Лека

2 февраля, 10:18

+3

Ответы (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), в остальных случаях