Распределите данные программы на три вида: · прикладные программы, системные программы, инструментальные - id248017220210402 от davleeva 02.04.2021 07:04

Question

Информатика: Распределите данные программы на три вида: · прикладные программы, системные программы, инструментальные системы . ms word, c++,open office org calc , corel draw, gimp, 1с бухгалтерия, borland pascal, 7zip, acrobat reader, promt, avira, 3d max, qbasic, cc cleaner, everest, ms powerpoint, drweb, winrar, windows7, adobe flash, power dvd, linux ubuntu, avast, adobe photoshop, macromedia dreamveaver. выполнить ! если можно побыстрее! заранее огромное ! : )

davleeva · Accepted Answer

Var
s,s1:string;
a,b:array[1..100]of integer;
i,n,x,k:integer;
    begin
      readln(s);
      readln(s1);
      n:=1;
       if length(s)>length(s1) then
        x:=length(s)
        else x:=length(s1);
         for i:=1 to length(s) do
         begin
          val(copy(s,i,1),k,n);
          a[i+x-length(s)]:=k;
         end;
           for i:=1 to length(s1) do
         begin
          val(copy(s1,i,1),k,n);
          b[i+x-length(s1)]:=k;
         end;
      for i:=1 to length(s) do
        a[i]:=a[i]+b[i];
        for i:=length(s) downto 2 do
        begin
         a[i-1]:=a[i-1]+a[i]div 10;
         a[i]:=a[i]mod 10;
        end;
      for i:=1 to length(s) do
       write(a[i]);


      end.

MOGZ ответил