Программу в паскале + составить блок-схемы: 4)если целое m делится на целое число nб то на экран выводится частное от деления, в противном случае выводится сообщение"m на n нацело не делится". 8)одинаковы ли цифры данного двухзначного числа. 9)является ли сумма цифр двухзначного числа четной. 12)кратна ли числу a сумма цифр двухзначного числа. 14)какая из цифр трехзначного числа больше: первая или вторая. 16) все ли цифры трехзначного числа одинаковые.

Все ответы в файлах в  приложении один не уместился, он в комментариях к последнему

Var a,r,sa,sr: real; begin         write('введите число a=');         readln(a);         write('введите число r=');         readln(r);         sa: =sqr(a);         sr: =pi*sqr(r);         writeln('площадь квадрата = ', sa, ', площадь круга = ',sr);         if sa< =sr then writeln('площадь квадрата меньше или равна площади круга. периметр квадрата = ',a*4);       if sr< =sa then writeln('площадь круга меньше или равна площади квадрата. длинна окружности = ',2*pi*r); end.

// pascalabc.net 3.0, сборка 1156 от 30.01.2016 function avg(a: array[,] of integer): real; begin   var s: =0; var k: =0;   foreach var e: integer in a do       if e> 0 then begin s+=e; inc(k) end;   if k> 0 then result: =s/k else result: =1e-100; end; begin   var a: =matrixrandom(4,4,-50,50); writeln(a);   writeln('среднее арифметическое положительных равно ',avg(a): 0: 3);   var b: =matrixrandom(5,5,-30,30); writeln(b);   writeln('среднее арифметическое положительных равно ',avg(b): 0: 3);   var c: =matrixrandom(4,5,-25,38); writeln(c);   writeln('среднее арифметическое положительных равно ',avg(c): 0: 3); end. тестовое решение: [[35,35,5,-47],[14,34,35,-13],[25,-5,35,-29],[-7,10,-12,12]] среднее арифметическое положительных равно 24.000 [[-12,-17,-10,19,14],[20,17,-27,-2,16],[-3,-21,30,2,10],[5,-3,-17,-3,18],[0,-26,29,1,-22]] среднее арифметическое положительных равно 15.083 [[-5,-11,17,-4,15],[15,17,-24,36,15],[-8,-3,-22,28,-25],[-21,6,12,31,-1]] среднее арифметическое положительных равно 19.200