Помогите решить задачу в Free Pascal

"!Женя!" · 05.02.2012, 12:21

Известно, что число делится на три тогда и только тогда, когда сумма его цифр делится на три. Проверим этот признак для заданного трехзначного числа X?

:t ehnari_ru_837:

Vladimir_S · 05.02.2012, 12:50

Цитата:

Сообщение от "!Женя!"

Проверим этот признак для заданного трехзначного числа X?

А проверим!

Код:

VAR
 N,Sum,R_of_D,i,m:Word;
BEGIN
 Repeat
  Write('N = ');
  Readln(N);
  If (N<100) or (N>999) then writeln('Error: incorrect value!');
 Until (N>99) and (N<1000);
 R_of_D:=N mod 3;
 Sum:=0;
 For i:=1 to 3 do
  begin
   Sum:=Sum+(N mod 10);
   N:=N div 10;
  end;
 Write('Sum of digits is ',Sum);
 m:=Sum mod 3;
 If m=0 then
  Writeln(', so N contains 3 as a factor;')
 else
  Writeln(', so N does not contain 3 as a factor;');
 Writeln('The residue of division of N by 3 is ',R_of_D);
 Readln
END.

05.02.2012, 12:21	#1 (permalink)
"!Женя!" Новичок Регистрация: 03.02.2012 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите решить задачу в Free Pascal Известно, что число делится на три тогда и только тогда, когда сумма его цифр делится на три. Проверим этот признак для заданного трехзначного числа X? :t ehnari_ru_837:

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070