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

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.

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку