Дано число. Если оно не делится ** 5, то увеличить число в 5 раз, в противном случае...

Question

Дано число. Если оно не делится на 5, то увеличить число в 5 раз, в противном случае уменьшить число в 5 раз.

Answer 1

Var a:integer;
begin 
writeln ('a=');
readln(a);
if a mod 5=0 then writeln ('Yes ',a/5) else writeln('NO ', 5*a);
readln;
end

Comments

а это правильно ?

---

спасибо большое

---

спасибо большое