Сумма каких либо двух цифер заданного трехзначного числа N равна третей цифре.

[Blos]

помогите плиз с задачкой
Сумма каких либо двух цифер заданного трехзначного числа N равна третей цифре.

[__STDC__]

что-нибудь типа

var
	num:integer;
	a,b,c,s:byte;
begin
	for num:=100 to 999 do begin
		a := num div 100; b := num div 10 mod 10; c := num mod 10;
		s := a+b+c;
		if ((s = 2*a) or (s = 2*b) or (s = 2*c)) then 
			writeln(num);
	end;
	readln;
end.

[Blos]

спасибо большое

[Blos]

а как сделать так что бы вводить число самому и в итоге оно выводило тебе false или true ?

[Anatole]

Позаимствовав у __STDC__ идею, вот так:

var
num:integer;
a,b,c,s:byte;
begin
writeln('n=');
readln(num)
a := num div 100; b := num div 10 mod 10; c := num mod 10;
s := a+b+c;
writeln ((s = 2*a) or (s = 2*b) or (s = 2*c)) ;
end;
readln;
end.