Написать функцию логического типа для проверки делимости задаваемого числа n на 3

@annaabc · Регистрация: 11.12.2015

Author24 — интернет-сервис помощи студентам

1. Для делимости целого числа на 3 требуется, чтобы сумма цифр числа делилась на 3.
Написать функцию логического типа для проверки делимости задаваемого числа n на 3.

@vint-81 · 11.12.2015, 16:01

Pascal

function del_3r(x:longint):boolean;
 function sum(x1:longint):integer;
  begin
   if x1>9 then sum:=x
           else sum:=sum(x div 10)+x mod 10
  end;
 begin 
  del_3r:=sum(x) mod 3 = 0
 end;

Добавлено через 4 минуты
или так...

Pascal

function del_3i(x:longint):boolean;
var sum:integer;
begin
 sum:=0;
 while x>0 do
  begin
   sum:=sum+x mod 10;
   x:=x div 10
  end;
 del_3i:=sum mod 3 = 0 
end;

@annaabc 0 / 0 / 0 Регистрация: 11.12.2015 Сообщений: 4
		1
	Написать функцию логического типа для проверки делимости задаваемого числа n на 3 11.12.2015, 06:20. Показов 2186. Ответов 1 Метки нет (Все метки) 1. Для делимости целого числа на 3 требуется, чтобы сумма цифр числа делилась на 3. Написать функцию логического типа для проверки делимости задаваемого числа n на 3. 0

	11.12.2015, 16:01

Написать функцию логического типа для проверки делимости задаваемого числа n на 3

Решение