Среди четырёхзначных чисел найти все числа сумма цифр, которых кратно 3 и больше 15

Uses crt; var i,s: integer; begin for i: =1000 to 9999 do begin s: =strtoint(inttostr(i)[1])+strtoint(inttostr(i)[2])+strtoint(inttostr(i)[3])+strtoint(inttostr(i)[4]); if (s> 15) and (s mod 3=0) then write(i,' '); end; end.

Американский инженер и , его работы являются синтезом идей с конкретным анализом чрезвычайно сложных проблем их технической реализации  он является основателем теории информации, нашедшей применение в современных высокотехнологических системах связи. шеннон внес огромный вклад в теорию вероятностных схем, теорию автоматов и теорию систем — области наук, входящие в понятие «кибернетика». в 1948 году предложил использовать слово «бит» для обозначения наименьшей единицы информации (в статье « теория связи»).  

  оператор присваивания.как и во всех языках программирования, в pascal abc имеется оператор  присваивания. в некоторых языках, символом присваивания является знак  равенства, однако для того, чтобы не путаться, оператор присваивания в паскале  выглядит так ": = " он служит для определения или переопределения значения  переменной. в случае переопределения, новое значение переменной,  записывается в ячейки с именем переопределяемой переменной, а прежнее  значение стирается. например: a: =1000; b: =5; a: =a+b. исходное значение переменной а – 1000, конечное 1005.  оператор выбора. иногда требуется осуществить выбор более чем из двух условий. в этом случае применяется оператор множественного выбора, позволяющий выбрать из списка одно из условий. оператор выбора выполняет одно действие из нескольких в зависимости от значения некоторого выражения, называемого переключателем. он имеет следующий вид: case переключатель of   список выбора 1: оператор1;   список выбора n: операторn; else оператор0 end; переключатель представляет собой выражение порядкового типа (целого, символьного, перечислимого или интервального), а списки выбора содержат константы совместимого типа. как и в операторе if, ветвь else может отсутствовать. оператор case (в случае) работает следующим образом. в списке выбора проверяется на совпадение текущее значение переключателя и меток списка, и если найдено совпадение, то выполняется оператор, соответствующий данной строке списка. если же значение переключателя не найдено ни в одной строке, то выполняется оператор else. в случае, если ветвь else отсутствует, оператор case не выполняет никаких действий, а передается внешнему оператору, следующему за конструкцией case. список выбора состоит либо из одной константы, либо из диапазона значений вида a..b (константа a должна быть меньше константы b). можно также перечислить несколько констант или диапазонов через запятую. в списках выбора диапазоны меток не должны пересекаться. например, в результате выполнения следующего фрагмента case i of 1,5: write(1);   4..9: write(2);   end;   программа завершится сообщением об ошибке.