Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.