Сумма каких-либо двух цифр заданного трехзначного натурального числа N равна третьей цифре (программа Паскаль)
Вопрос посетителя
Сумма каких-либо двух цифр заданного трехзначного натурального числа N равна третьей цифре
Ответ эксперта
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.