profile

Опубликовано 5 лет назад по предмету Информатика от grwl

На интервале от 100 до 150 найти количество цифр, сумма которых равна 5.

  1. Ответ
    Ответ дан raf1O5

    program raf105;

    var a,b,c,counter,i: integer;

    begin

    for i:=100 to 150 do

    begin

     a:= i div 100;

     b:= (i div 10) mod 10;

     c:= i mod 10;

     if a+b+c=5

       then counter:= counter + 1;

    end;

    writeln('Количество чисел от 100 до 150, сумма цифр которых равна пяти: ',counter);

    end.

    Язык PascalABC

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт


Другие вопросы