Дано число, удвоить его в 3 раза если оно кратно 17. В противном случае уменьшить на 4. Вывести ответ на экран. В pascal abc

Question

Каллистрат

27 декабря, 13:55

+1

Ответы (1)

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

Санюша · Answer 1

Var a:real;

begin

read (a) ;

if a mod 17 = 0 then begin

write (a*2*3) ;

end;

else begin

write (a-4) ;

end;

end.