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

Question

Информатика: Дано целое число. если оно кратно 5, то вывести на экран сообщение: «да» и уменьшить число в 5 раз. в противном случае вывести на экран сообщение «нет» и при этом число увеличить в 5 раз.

maskaasenkova · Answer

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....

Популярные вопросы