Задано трехзначное число, написать программу на языке паскаль, которая находит сумму его цифр и проверить четное оно или нет.

Program gt; var s,q,n: integer; begin s: =0; while n> 0 do begin q: =n mod 10; n: =n div 10; s: =s+q; end; writeln(s); if(n mod 2=0)then writeln('четное')else writeln('не четное'); end.

Практически во всех случаях архивный файл содержит оглавление, позволяющее узнать, какие файлы содержатся в архиве. для каждого содержащегося в архиве файла в оглавлении хранится следующая информация об этом файле: имя файла; сведения о каталоге, в котором находился файл,дата и время последней модификации файла; размер исходного файла и сжатого файла в архиве,код циклического контроля (он позволяет проверить целостность архива). программы для работы с архивными файлами (программы-упаковщики и файл-менеджеры) обычно позволяют просматривать оглавление архива, не извлекая файлы из архива. это удобно.

После выполнения циклов элементы массива, расположенные под главной диагональю, будут равны 1, а элементы главной диагонали и элементы, расположенные над главной диагональю, будут равны -1. матрица будет иметь вид: -1 -1 -1 -1 -1   1 -1 -1 -1 -1   1   1 -1 -1 -1   1   1   1 -1   -1   1   1   1   1   -1 и т.д. таким образом, элементов, имеющих значение -1 будет на 100 больше, чем элементов со значением 1 и, следовательно, сумма всех элементов будет равна -100.