Школа, компьютер , государство, солнечная система, человек: подсистема 1 , подсистема 2

подсистема 1                                       подсистема 2

школа                                                   компьютер

государство                                           солнечная система

человек

//pascal   var a,b, i, maxsumm, max : integer;     function summdel(x: integer): integer; //результат - сумма делителей х   var k,sum: integer;   begin       sum: =0;       for k : = 1 to x div 2 + 1 do           if x mod k = 0 then sum: = sum+k;       summdel: =sum;   end;     begin     writeln('введите границы a,b ');     readln(a,b);       maxsumm : = 1;       max : = 1;       for i : = a to b do         begin               if summdel(i) > maxsumm then                   begin maxsumm: = summdel(i);                       max : = i;                   end;         end;         writeln('максимальная сумма делителей - ', maxsumm, ' число - ',max)   end.

Var a,b,c,n: integer; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('n='); readln(n); if a mod n = 0   then writeln('число ',a,' кратно ',n) else writeln('число ',a,' не кратно ',n); if b mod n = 0   then writeln('число ',b,' кратно ',n) else writeln('число ',b,' не кратно ',n); if c mod n = 0   then writeln('число ',c,' кратно ',n) else writeln('число ',c,' не кратно ',n); end. пример: a=10 b=12 c=27 n=4 число 10 не кратно 4 число 12 кратно 4 число 27 не кратно 4