Напишите программу, которая в последовательности целых чисел находит сумму и количество чисел, кратных 17, или сообщает, что таких чисел нет. на вход программы целые числа, количество введенных чисел неизвестно, последовательность заканчивается числом 0 (0 - признак окончания ввода, не является членом последовательности). количество чисел не превышает 100. введенные числа по модулю не превышают 300. программа должна вывести сумму и количество чисел, кратных 17, или вывести no, если таких числе в последовательности нет

Var summa,count,numb : integer; begin summa: =0; count: =0; readln(numb); while numb < > 0 do begin if numb mod 17 = 0 then begin summa: =summa+numb; count: =count+1; end; readln(numb); end; if (summa > 0) and (count > 0) then writeln(summa,'   ',count) else  writeln('no'); end.

1) ра, ии, та (тэ) и ро (эр). в египетском языке слово «рот» звучало как «эр», и они стали иероглифом обозначать не только слово «рот», но и согласный звук «р». точно так же иероглиф «хлеб» употреблялся для обозначения звука «т», потому что по-египетски «хлеб» — «тэ», и так далее. 2) в египетском письме более семисот иероглифов. 3) в древнем египте наряду со значками , обозначавшими целые понятия и слова, существовали и другие знаки, обозначавшие слоги и даже отдельные звуки . потребность в таких знаках очевидна, так как не все можно выразить в виде изображений (прежде всего, это касается личных имен). в этих случаях египтяне превращали слова иероглифы в буквы иероглифы, из которых и составлялись слова, подлежащие передаче на письме согласно их звучанию. например иероглиф «хт» — изображение дома — сделался двухбуквенным иероглифом, обозначающим звук [хт], иероглиф «мн» — изображение шахматной доски — стал иероглифом, обозначающим два звука [мн] и т.д. на первых порах значение фонетических иероглифов было , но со временем их роль все более возрастала, и в последние века существования египетской письменности значение фонетических иероглифов стало господствующим. но к чисто фонографическому письму (то есть такому, где каждый знак обозначает отдельный звук или букву) египтяне так и не перешли . это важное усовершенствование было сделано в письме других народов. 4) вообще-то, само понятие иероглиф не подразумевает передачу каких либо букв или звуков, они "значение" слова. это не алфавит или азбука, а набор знаков для записи определенных понятий, т.е. слов целиком хотя, в иероглифических системах существуют знаки для передачи именно одной буквы или слога 5) лингвисты того времени не знали как могут звучать какой то конкретный иероглиф и является ли он "буквой" или же обозначает целое понятие. после находки розеттского камня, с текстами на 3х языках (древнеегип-м, египетском (демотическое письмо) и древнегреческом) шампальон начал изучать его и сопоставлять тексты друг другу. отыскав имена правителей (александра, клеопатры выяснил, что иероглифы являются как бы "буквами", т.е. имеют какое то чтение, пишутся в основном согласные, хотя некоторые гласные (а, и также присутствуют. некоторые иероглифы читаются одним звуком, а некоторые двумя или тремя 6) египтяне, как и некоторые другие народы, не писали гласных. поэтому после слова, написанного звуковыми знаками, ставился определитель - знак, поясняющий читающему общее значение слова. например, иероглиф, напоминающий "яму с водой", обозначал в одном случае слово “колодец”, в другом – сочетание двух согласных “хм”, а в третьем тот же знак не читался, а лишь подсказывал, что речь в тексте идет о воде - прудах, болотах и т.п.

writeln('a[',i,']=',a[i]);

readln;

end.