Консультация № 138835
31.05.2008, 22:44
0.00 руб.
0 2 2
Для делимости числа на 5 необходимо чтобы последняя цифра числа была 0 или 5.Написать функцию проверки делимости числа N,вводимого с клавиатуры,на 5.

Обсуждение

Неизвестный
31.05.2008, 22:58
общий
это ответ
Здравствуйте, Гноць,Руслан,Валериевич!
решение гораздо проще.
Если ответ будет TRUE - значит делится, если FALSE - не делится.

Приложение:
var a: integer;begin readln(a); writeln(a mod 5 = 0); readln;end.
Неизвестный
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.
Форма ответа