19 баллов! Написать программу для паскаля. С клавиатуры вводятся два натуральных

19 баллов! Написать программу для паскаля. С клавиатуры вводятся два естественных числа (n и m. Число n меньшее). Вывести на экран все числа от n до m сумма цифр которых равна 12

Задать свой вопрос
1 ответ
Var
   n,m,A,S:integer;
Begin
Write('n = ');ReadLn(n);
Write('m = ');ReadLn(m);
For m:= n to m do
    Begin
    S:=0;
    A:=m;
    While A gt; 0 do
       Begin
       S:=S+A mod 10;
       A:=A div 10
       End;
    if S = 12 then Write(m,' ')
    End;
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт