Решите тест

https://kpolyakov. spb. ru/school/test10/a42.htm

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

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.

самая крупная птица это страус к тому же он ещё не летает