Program Pr1; uses crt; const n=20; var mas:array[1..n,1..n] of integer; i,j,v:integer; Begin clrscr; v:=0; randomize; for j:=1 to n do for i:=1 to n do mas[i,j]:=random(10); for j:=1 to n do for i:=1 to n do v:=v+mas[i,j]; writeln('Summa=',v); {a} v:=0; for j:=1 to n do for i:=1 to n do v:=v+sqr(mas[i,j]); writeln('Summa SQR=',v); {б} end.
var a,b,c,d,e,f:integer; function nod(m,n:integer):integer; begin while m<>n do if m>n then m:=m-n else n:=n-m; nod:=m end; begin write('введите числитель1, знаменатель1, числитель2, знаменатель2'); readln(a,b,c,d); e:=a*d+b*c; f:=b*d; if f=0 then write('на 0 делить нельзя') else if e=0 then writeln('сложение = ',e) else begin e:=e div nod(abs(e),f); f:=f div nod(abs(e),f); writeln('сложение = ',e,'\',f); end; e:=a*c; f:=b*d; if f=0 then write('на 0 делить нельзя') else if e=0 then writeln('умножение = ',e) else begin e:=e div nod(abs(e),f); f:=f div nod(abs(e),f); writeln('умножение = ',e,'\',f); end; e:=a*d; f:=b*c; if f=0 then write('на 0 делить нельзя') else if e=0 then writeln('деление= ',e) else begin e:=e div nod(abs(e),f); f:=f div nod(abs(e),f); writeln('деление = ',e,'\',f); end; end.
Задание №1 CLS DIM A(20), B(20) DATA -6.4, 5.6, -0.1, 46.7, 7, -3.8, 0.23, 6 FOR i = 1 TO 8 READ A(i) PRINT i, A(i) NEXT i PRINT "" FOR i = 1 TO 8 B(i) = A(i) * 5 PRINT i, B(i) NEXT i PRINT "" FOR i = 1 TO 8 PRINT i, A(i) * B(i) NEXT i PRINT "" i = 5 PRINT i, A(i) i = 1 PRINT i, B(i)
Задание №2 CLS INPUT "vvod A"; A c1 = INT(A / 1000) A = A - 1000 * c1 c2 = INT(A / 100) A = A - 100 * c2 c3 = INT(A / 10) c4 = A - 10 * c3 S$ = "No" IF c1 = c2 THEN S$ = "Es" IF c1 = c3 THEN S$ = "Es" IF c1 = c4 THEN S$ = "Es" IF c2 = c3 THEN S$ = "Es" IF c2 = c4 THEN S$ = "Es" IF c3 = c4 THEN S$ = "Es" PRINT S$, c1, c2, c3, c4
Program Pr1;
uses crt;
const n=20;
var mas:array[1..n,1..n] of integer;
i,j,v:integer;
Begin
clrscr;
v:=0;
randomize;
for j:=1 to n do
for i:=1 to n do mas[i,j]:=random(10);
for j:=1 to n do
for i:=1 to n do v:=v+mas[i,j];
writeln('Summa=',v); {a}
v:=0;
for j:=1 to n do
for i:=1 to n do v:=v+sqr(mas[i,j]);
writeln('Summa SQR=',v); {б}
end.