procedure MatrA(var a: mass); var i, j: integer; begin for i := 1 to n do for j := 1 to m do begin writeln('a[', i, ',', j, ']: '); readln(a[i, j]) end end;
procedure MatrB(var b: mass); var i, j: integer; begin for i := 1 to n1 do for j := 1 to m1 do begin writeln('b[', i, ',', j, ']: '); readln(b[i, j]) end end;
procedure Sum(a, b: mass; var c: mass); var i, j: integer; begin for i := 1 to n do for j := 1 to m do c[i, j] := a[i, j] + b[i, j]; end;
begin writeln('Введите n,m матрицы A'); readln(n, m); MatrA(a); writeln('Введите n,m матрицы B'); readln(n1, m1); MatrB(b); if (n1 <> n) and (m1 <> m) then writeln('Матрицы сложить нельзя') else begin Sum(a, b, c); writeln('A+B'); for i := 1 to n do begin for j := 1 to m do write(c[i, j]:1:3, ' '); writeln end end; readln; end.
var r:integer; begin writeln('Введите радиус'); read(r); writeln('Длина окружности = ',2*pi*r); writeln('Площадь круга = ',pi*sqr(r)); end.
Задание №2
var a,d,n:integer; begin writeln('Введите первый член, знаменатель, число членов'); read(a,d,n); writeln('Cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d)); end.
Задание №3
var m,n:integer; begin writeln('Введите m и n'); read(m,n); if m=n then begin m:=0; n:=0; end; if (m>n) then n:=m else if n>m then m:=n; end.
Задание №4
var a,b,c:integer; begin writeln('Введите стороны a,b,c'); read(a,b,c); if (a=b) or (b=c) or (c=a) then writeln('Треугольник равнобедренный') else writeln('Треугольник неравнобедренный'); end.
Задание №5
var a,b,c:integer; begin a:=0; c:=0; repeat writeln('Введите число'); read(b); if b<0 then a:=a+1; c:=c+1; until c=3; writeln('Количество отрицательных = ',a); end.
Задание №6
var a,c:integer; b:real; begin writeln('Введите количество часов'); read(a); c:=a div 3; b:=power(2, c); writeln(b); end.
Задание №7
const n=10; var a:array [1..10] of integer; i,k,s:integer; begin writeln('Введите k'); read(k); writeln('Введите элементы массива'); for i:=1 to n do begin read(a[i]); if a[i] mod k =0 then s:=s+a[i]; end; writeln(s); end.
Объяснение:
С инструмента заливка во вкладке вставка