ПАСКАЛЬ. Составьте программу, выводящую ** экран все трехзначные числа, сумма цифр...

Question

ПАСКАЛЬ. Составьте программу, выводящую на экран все трехзначные числа, сумма цифр которых равна 10

Answer 1

Var
  i:integer;
Begin
  for i:= 100 to 999 do
    if ((i mod 10)+(i div 10 mod 10)+(i div 100)) = 10 then write(i,' ');
End.

Comments

спасибо)