Pascal. дана информация о 6 вкладчиках в сберкассы. запись имеет вид: фамилия, район, соц положение, величина вклада. вывести данные о том, столько среди вкладчиков служащих, рабочих и колхозников.

всего известно до 5000 разных египетских иероглифов, однако в каждую эпоху использовалось не более 700-800. среди египетских иероглифов различают: 1) одноконсонантные знаки (около 30) - обозначавшие согласные звуки египетского языка; 2) двух-трехконсонантные знаки для фонетической передачи морфем; 3) идеограммы – для обозначения целых слов; 4) детерминативы – (непроизносимые) идеографические знаки, уточняющие значения слов.

наверно так

a: array [1..100] of longint

uses crt;

var a,s: integer;

begin

s: =0;

writeln('введите числа');

while a< > 0 do begin

readln(a);

if (a> 0)  then s: =s+a;

end;

writeln('s=',s);

end.

y=x*x

y=y*y

y=y*y

y=y*x

y=y*x = x^10

y=x*x

y=y*y

y=y*y

y=y*y

y=y/x=x^15

y=x*x*x*x*x*x*x*x*x*x=x^10