Ермоген 2 ноября 2019 в 09:48
Дано число. Если оно не делится на 5, то увеличить число в 5 раз, в противном случае уменьшить число в 5 раз.
Дано число. Если оно не делится на 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
begin
writeln (a=);
readln(a);
if a mod 5=0 then writeln (Yes ,a/5) else writeln(NO , 5*a);
readln;
end
Компьютеры и вычисления
256
34
Для комментирования необходимо зарегистрироваться на сайте