Постройте дерево каталогов c: \рисунки\природа\небо. bmp c: \рисунки\природа\снег. bmp c: \рисунки\компьютер\монитор. bmp c: \мои документы\ученики\11 класс\долголенко а. э\доклад. doc

используется язык pascal

program pr;

var

  mas: array[1..7] of integer;

  i: integer;

begin

writeln('вводим значения в массив');

  for i: =1 to 7 do readln (mas[i]);

writeln('выводим значения из массива');

  for i: =7 downto 1 do writeln(mas[i]);

readln;

end;

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495

на египетскую

вавилон-клинопись

финикия-подобие букв без гласных

египет-иероглифы

var s1,s2: string;

begin

  s1: ="параллелограмм";

  s2: ="гром";

  for i: = 1 to length(s1) do

  begin

      if i > length(s2) then s[i]='';

      if s1[i]< > s2[i] then s1[i]=s2[i];

    writeln(s1);

  end;

end.

чем не вариант, если правил нету)