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

Question

Слава

15 февраля, 16:51

+1

Ответы (1)

Знаете ответ?

Нестер · 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