Какие компоненты расположены на форме? Перечислите их!

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

думаю, что 19,5 кб = 0,019 мб.

var a, b: real; n: integer;

function arif_mem(a, b: real; n: integer): real; begin if n = 1 then arif_mem : = a; if n > 1 then arif_mem : = arif_mem(a, b, n - 1) + b; end;

function arif_sum(a, b: real; n: integer): real; begin if n = 1 then arif_sum : = a; if n > 1 then arif_sum : = arif_sum(a, b, n - 1) + arif_mem(a, b, n); end;

begin write('введите первый член прогрессии: '); readln(a); write('введите разность прогрессии: '); readln(b); write('введите номер члена прогрессии: '); readln(n); writeln(n, '-й член прогрессии равен : ', arif_mem(a, b, n): 8: 2); writeln('сумма ', n, ' членов прогрессии равна : ', arif_sum(a, b, n): 8: 2); end.

var a: array [1..10] of real;

s,i: integer;

begin

  {vvod tablicy}

  for i : = 1 to 10 do

      if a[i]< > 0 then s: =s+1;

  writeln(s);

end.