Найти сумму целых двузначных чисел, кратных 5. составить блок-схему алгоритма и программу.

program xxx;

    var i, s : integer;

begin

  s: =0;

  for i: = 10 to 99 do

      if i mod 5 = 0 then s: =s+i;

  writeln('сумма двузначных чисел, кратных 5 =', s);

  readln

end.

// pascalabc.net 3.1, сборка 1200 от 13.03.2016 function gcd(a,b: integer): integer; // нахождение нод begin   while b< > 0 do   begin       a: =a mod b;       var i: =b; b: =a; a: =i   end;   result: =a end; procedure shorter(var a,b: integer); // "сокращатель" дроби begin   var k: =gcd(a,b);   a: =a div k;   b: =b div k end; begin   var a,b: integer;   writeln('введите числитель и знаменатель дроби: ');   read(a,b);   write(a,'/',b,'='); shorter(a,b); writeln(a,'/',b) end. тестовое решение: введите числитель и знаменатель дроби: 25 15 25/15=5/3

// pascalabc.net 3.1, сборка 1200 от 13.03.2016 begin   var a: =matrixrandom(7,7,0,9);   var k: =0;   for var i: =0 to 6 do begin       for var j: =0 to 6 do begin           write(a[i,j]: 3);           if a[i,j] in [1..5] then inc(k)           end;       writeln       end;   writeln('кол-во элементов на [1,5]: ',k) end. тестовое решение:   2  1  7  3  3  2  7   9  2  9  2  0  5  5   4  2  6  9  4  6  0   1  0  3  5  4  5  9   6  3  6  0  2  0  8   0  8  4  3  2  1  8   6  0  4  4  5  4  0 кол-во элементов на [1,5]: 27 вариант "совсем для школы" const   n=7; var   a: array[1..n,1..n] of integer;   i,j,k: integer; begin   randomize;   k: =0;   for i: =1 to n do begin       for j: =1 to n do begin           a[i,j]: =random(10);           write(a[i,j]: 3);           if a[i,j] in [1..5] then inc(k)           end;       writeln       end;   writeln('кол-во элементов на [1,5]: ',k) end.