01.06.2008, 13:38
общий
это ответ
Здравствуйте, Гноць,Руслан,Валериевич!
Я сделал задачу подразумевающую что n будет целым числом.
сначала делим заданное целое число n на 5,
round(k)- округляет число,
дальше условие: проверяет каким будет последнее число.
Приложение:
varn:integer; k:real;beginwriteln(‘vvedite chislo‘);readln(n);k:=n/5;n:=round(k);writeln(‘n=‘,n);if (n div 1 mod 10 = 0) or (n div 1 mod 10 = 5) thenwriteln(‘YES‘) else writeln(‘No‘);readln;end.