Предмет: Информатика, автор: simon0277

Известны
следующие признаки делимости числа N. Д
ля делимости на
5 необходимо, чтобы последняя цифра
числа была 0 или 5.  


Описать процедуру
проверки признаков делимости. Проверить
их для различных значений N.    
Предмет (Программирование) 
на Pascal ABC

Ответы

Автор ответа: nelle987
0
var N, lastNum, mod5: integer;
  flag: boolean;
begin
  readln(N);
  lastNum := N mod 10;
  mod5 := N mod 5;
  flag := (lastNum = 5) or (lastNum = 0);
  if flag then
    writeln('Число ', N, ' делится на 5 по признаку делимости')
  else
    writeln('Число ', N, ' не делится на 5 по признаку делимости');
  if (mod5 = 0) then
    writeln('Число ', N, ' делится на 5 по определению')
  else
    writeln('Число ', N, ' не делится на 5 по определению');
  flag := flag xor (mod5 = 0);
  if flag then
    writeln('Результаты не совпадают, это не признак делимости!')
  else
    writeln('Результаты совпадают, это возможно признак делимости')
end.
Похожие вопросы