Определить количество трехзначных натуральных чисел, сумма цифр которых равна целому числу n решить через while и reapeat

evabo00 evabo00    1   09.06.2019 07:30    2

Ответы
zuhraafokinazuhra zuhraafokinazuhra  08.07.2020 06:46
var
  n, i, s: integer;
begin
  readln(n);
  i := 100;
  while (i <= 999) do
  begin
    if (i mod 10 + i div 10 mod 10 + i div 100 = n) then
      inc(s);
    i := i + 1;
  end;
  writeln(s);
  
  s := 0;
  i := 100;
  repeat
    if (i mod 10 + i div 10 mod 10 + i div 100 = n) then
      inc(s);
    i := i + 1;
  until (i = 999);
  writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика