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

Question

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

Comments

Именно удвоить в 3 раза или увеличить?

---

Именно удвоить

---

Понятно. Я уже делал

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.