Дано целое число. Если оно кратно 5, то вывести на экран сообщение: "Да" и уменьшить число в 5 раз. В противном случае вывести на экран сообщение "Нет" и при этом число увеличить в 5 раз.

Question

Пава

27 августа, 16:33

+2

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