Задать вопрос Регистрация
Помочь другим

  • Найдите все трехзначные числа, сумма цифр которых равна данному целому числу.(pascal) 

Ответы 1

  • uses crt;

    var i,s,a,b,c,ch,o:integer;

    begino:=0;writeln(' Vvedite chislo ' );readln(ch);for i:=100 to 999 dobegina:=i div 100;b:=(i div 10) mod 10;c:=i mod 10;if ((a+b+c) = ch) thenbegininc(o);writeln(i);end;end;if o = 0 then writeln('error !');readln;end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years