30.05.2008, 08:52
общий
это ответ
Здравствуйте, Пухов Никита Евгеньевич!
Решение задачи в приложении.
Приложение:
uses crt;function Del_3(n:longint):boolean;var u:longint; sum:byte;beginDel_3:=true;sum:=0;while n>0 do {разбиваем число на цифры, начиная с последней} begin u:=n mod 10; sum:=sum+u; {складываем их} n:=n div 10; end;if sum mod 3<>0 then Del_3:=false;end;var x:longint;beginclrscr;write(‘x=‘);;readln(x);if Del_3(x) then writeln(‘Cislo ‘,x,‘ delitsa na 3!‘)else writeln(‘Cislo ‘,x,‘ ne delitsa na 3!‘);readlnend.