С вложенных циклов выведите на экран матрицу с n=5 1) 2) 3)
11111 . . 11111. .11111 .
11111 . .00000 . .22222.
11011. .11111 . .33333.
11111 . .00000. .44444 .
11111 . .11111 . .55555.
4) 5)
.10000. .00001.
.01000. .00010.
.00100. .00100.
.00010. .01000.
.00001. .10000.
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln('k=',ArrRandom(15,1,20).Println.Count(x->x>10))
end.
Тестовое решение
4 16 14 9 11 18 17 14 14 15 1 1 9 10 15
k=9
2. А вот так учат решать в школе...
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
var
a:array[1..15] of integer;
i,k:integer;
begin
Randomize;
k:=0;
for i:=1 to 15 do begin
a[i]:=Random(20)+1;
Write(a[i],' ');
if a[i]>10 then k:=k+1
end;
Writeln;
Writeln('k=',k)
end.
Тестовое решение:
18 15 7 6 3 3 10 6 6 15 2 16 16 2 12
k=6
Код1:
#include <iostream>#include <cmath>constexpr double semi_perimeter (double a, double b, double c) { return (a + b + c) / 2;}double first_task(double a, double b, double c) { auto p = semi_perimeter(a, b, c); return sqrt(p*(p-a)*(p-b)*(p-c));}int main() { double A, B, C, S; std::cin >> A >> B >> C; S = first_task(A, B, C); std:: cout << S << std::endl; return 0;}Код2:
#include <iostream>#include <cmath>constexpr double peak(double a, double b) { return (a > b) ? a : b;}double second_task(double a, double b, double c) { return peak(peak(a, b), c);}int main() { double A, B, C, R; std::cin >> A >> B >> C; R = second_task(A, B, C); std:: cout << R << std::endl; return 0;}