Program n1; var a,b,sum,pr:integer; begin sum:=0; pr:=1; for a:=1 to 10 do begin sum:=sum+a; end; writeln('сумма чисел от 1 до 10 = ',sum); for a:=1 to 10 do begin pr:=pr*a; end; writeln('произведение чисел от 1 до 10 = ',pr); end.
program n2; var a,b,n:integer; begin writeln('введите степень n'); readln(n); b:=1; for a:=1 to n do begin b:=b*2; end; writeln('2 в ',n,' степени = ', b); end.
program n3; var sum,a,n,n2:integer; begin writeln('введите число n'); readln(n); n2:=n; while n<>0 do begin a:=n mod 10; sum:=a+sum; n:=n div 10; end; writeln('сумма цифр ',n2,' = ',sum); end.
program z1; const n = 3; m =3; var a:array[1..n, 1..m] of integer; i,j,min:integer; begin //Заполним матрицу и найдем минимальное min:=20; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(41)-20; if a[i,j] < min then min:=a[i,j]; write(a[i,j]:4); end; writeln; end; writeln; // меняем минимальное на 0 и выводим матрицу for i:=1 to n do begin for j:=1 to m do begin if a[i,j] = min then a[i,j]:=0; write(a[i,j]:4); end; writeln; end; end.
Тестовое решение для 1 задачи: 18 20 -10 19 -14 -17 -4 -17 -15
18 20 -10 19 -14 0 -4 0 -15
Задание №2
program z2; const n = 3; m =5; var a:array[1..n, 1..m] of integer; i,j,min:integer; begin //Заполним матрицу for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(41)-20; write(a[i,j]:5); end; writeln; end; writeln; // меняем все элементы на их квадраты и выводим матрицу for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=sqr(a[i,j]); write(a[i,j]:5); end; writeln; end; end.
Тестовое решение для задания №2 15 8 18 -17 10 -19 17 1 20 -15 -20 -13 -11 -3 17
В ассиметричном алгоритме используется 2 ключа.