Дана непустая последовательность целых чисел, оканчивающаяся нулем (0 является признаком окончания последовательности и в последовательность не входит). найти и напечатать: 1. сумму всех чисел, больших х (значение х вводится с клавиатуры). если таких чисел нет, то напечатать «таких чисел нет» 2. количество четных чисел

Var a: array[1..1000] of longint; i,j,k,b,h,v: longint; begin i: =2; readln(a[1]); while (a[i-1]< > 0) do begin readln(a[i]); inc(i); end; readln(j); for k: =1 to i-1 do if a[k]> j then h: =h+a[k] else inc(b); if b=i-1 then writeln('takix 4isel netu'); for k: =1 to i-1 do if a[k] mod 2=0 then inc(v); writeln(h, ' ,v); end. ну при компиляции могут быть ошибки, т.к. писал сразу здесь.. но суть и её решение я вижу именно так

Египетское письмо не передавало звуков языка и один иероглиф можно было прочитать по разному. лингвисты того времени не знали как могут звучать какой то конкретный иероглиф и является ли он "буквой" или же обозначает целое понятие. после находки розеттского камня, с текстами на 3х языках (древнеегипетском, египетском (демотическое письмо) и древнегреческом) шампальон начал изучать его и сопоставлять тексты друг с другом. отыскав имена правителей (александра, клеопатры выяснил, что иероглифы являются как бы "буквами", т.е. имеют какое то чтение, пишутся в основном согласные, хотя некоторые гласные (а, и также присутствуют. некоторые иероглифы читаются одним звуком, а некоторые двумя или тремя

вот так понятней буде)) ну и более правильно, для

 

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end.