сумма цифр техзначного числа

@annit04ka · Регистрация: 06.12.2009

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

сумма цифр трехзначного числа кратно 7, само число так же делиться на 7 . найти все такие числа!

@yanyk1n · 23.04.2010, 21:00

Pascal

1	for i:=100 to 999 do if (i mod 7 = 0) and ((i div 100 + i mod 100 div 10 + i mod 10) mod 7 = 0) then write(i,' ');

@DeLuxe · 23.04.2010, 21:05

Pascal

uses crt;
var i:integer;
function multiplicity(x:integer):boolean;
var st:string;
sum,y,code:integer;
begin
str(x,st);
sum:=0;
for i:=1 to length(st) do begin
val(st[i],y,code);
sum:=sum+y;
end;
if sum mod 7=0 then multiplicity:=true else multiplicity:=false;
end;
 
begin
clrscr;
for i:=100 to 999 do if (i mod 7=0) and multiplicity(i) then write(i,' ');
readkey;
end.

не компилировалось

@annit04ka · 24.04.2010, 22:16 **[ТС]**

спасибо большое...а еще варианты есть?

@annit04ka 1 / 1 / 0 Регистрация: 06.12.2009 Сообщений: 25
		1
	сумма цифр техзначного числа 23.04.2010, 20:50. Показов 453. Ответов 3 Метки нет (Все метки) сумма цифр трехзначного числа кратно 7, само число так же делиться на 7 . найти все такие числа! 0

@annit04ka 1 / 1 / 0 Регистрация: 06.12.2009 Сообщений: 25
	24.04.2010, 22:16 [ТС]	4
	спасибо большое...а еще варианты есть? 0