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

Question

Иакинф

19 марта, 16:14

+4

Ответы (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.