Написать на паскале программу на признак делимости, которая выводит, делится ли число на 11 или нет, с участием функции
Answers & Comments
alex328
То, что написал Alex - это не функция проверки признака делимости, а стандартная функция остатка от деления, которая тебе не подходит. Признак делимости на 11 такой. Нужно отдельно сложить цифры, стоящие на нечетных местах - 1, 3, 5, ..., до конца, и отдельно цифры, стоящие на четных местах - 2, 4, 6, ..., тоже до конца. Потом вычитаешь из большего числа меньшее. Если разность = 0 или делится на 11, то и все число делится на 11. Я паскаль плохо знаю, поэтому опишу только алгоритм. 1) Вводим начальное число N. 2) Объявляем массив M[length(N)] длиной, равной количеству цифр числа. 3) Делаем в цикле a := N mod 10; M[i] := a; N := int(N / 10); i := i+1; Продолжаем цикл до тех пор, пока N > 0. 4) S1 := 0; Цикл от 1 до length(N) с шагом 2: S1 := S1 + A[i]; 5) S2 := 0; Цикл от 2 до length(N) с шагом 2: S2 := S2 + A[i]; 6) Raznost := abs(S1 - S2); 7) Если Raznost mod 11 = 0 тогда ответ ДА, иначе ответ НЕТ. 8) Конец
1 votes Thanks 1
serum
я же написал с участием функции, с признаком делимости на 11, то есть разность чисел на четных и нечетных позициях должна быть равна 0, или числу кратному 11, а такую программу я и сам могу написать
Var chislo:integer; begin writeln('Введите число'); readln ( chislo); if ( (chislo mod 11)=0) then writeln ( 'делится') else writeln ( 'не делится'); readln; readln end. вроде так будут ошибки пиши
Answers & Comments
а стандартная функция остатка от деления, которая тебе не подходит.
Признак делимости на 11 такой. Нужно отдельно сложить цифры, стоящие на нечетных местах - 1, 3, 5, ..., до конца, и отдельно цифры, стоящие на четных местах - 2, 4, 6, ..., тоже до конца.
Потом вычитаешь из большего числа меньшее. Если разность = 0 или делится на 11, то и все число делится на 11.
Я паскаль плохо знаю, поэтому опишу только алгоритм.
1) Вводим начальное число N.
2) Объявляем массив M[length(N)] длиной, равной количеству цифр числа.
3) Делаем в цикле a := N mod 10; M[i] := a; N := int(N / 10); i := i+1;
Продолжаем цикл до тех пор, пока N > 0.
4) S1 := 0; Цикл от 1 до length(N) с шагом 2: S1 := S1 + A[i];
5) S2 := 0; Цикл от 2 до length(N) с шагом 2: S2 := S2 + A[i];
6) Raznost := abs(S1 - S2);
7) Если Raznost mod 11 = 0 тогда ответ ДА, иначе ответ НЕТ.
8) Конец
Verified answer
Varchislo:integer;
begin
writeln('Введите число');
readln ( chislo);
if ( (chislo mod 11)=0) then
writeln ( 'делится')
else
writeln ( 'не делится');
readln;
readln
end.
вроде так
будут ошибки пиши