Var a,b,c,n: integer; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('n='); readln(n); if a mod n = 0 then writeln('Число ',a,' кратно ',n) else writeln('Число ',a,' не кратно ',n); if b mod n = 0 then writeln('Число ',b,' кратно ',n) else writeln('Число ',b,' не кратно ',n); if c mod n = 0 then writeln('Число ',c,' кратно ',n) else writeln('Число ',c,' не кратно ',n); end.
Пример: a=10 b=12 c=27 n=4 Число 10 не кратно 4 Число 12 кратно 4 Число 27 не кратно 4
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016 var i,j,k,n:integer; a,b,c:array[,] of integer; begin Write('Число строк (столбцов) матрицы: '); Read(n); SetLength(a,n,n); SetLength(b,n,n); SetLength(c,n,n); Randomize; Writeln('Матрица A'); for i:=0 to n-1 do begin for j:=0 to n-1 do begin a[i,j]:=Random(90)+10; Write(a[i,j]:3) end; Writeln end; Writeln('Матрица B'); for i:=0 to n-1 do begin for j:=0 to n-1 do begin b[i,j]:=Random(90)+10; Write(b[i,j]:3) end; Writeln end; // умножение и вывод Writeln('Матрица C'); for i:=0 to n-1 do begin for j:=0 to n-1 do begin c[i,j]:=0; for k:=0 to n-1 do c[i,j]:=c[i,j]+a[i,k]*b[k,j]; Write(c[i,j]:6) end; Writeln end; end.
Var ma1,ma2,mar:array[1..n,1..n] of integer; i,j,z:integer; begin randomize; writeln('Matrix 1:'); for i:=1 to n do begin for j:=1 to n do begin ma1[i,j]:=random(10); write(ma1[i,j]:4); end; writeln; end; writeln('Matrix 2:'); for i:=1 to n do begin for j:=1 to n do begin ma2[i,j]:=random(10); write(ma2[i,j]:4); end; writeln; end; writeln('Final matrix:'); for i:=1 to n do begin for j:=1 to n do begin for z:=1 to n do mar[i,j]:=mar[i,j]+ma2[z,j]*ma1[i,z]; write(mar[i,j]:4); end; writeln; end; end.
//C вводом размерности
Var ma1,ma2,mar:array[,] of integer; i,j,z,n:integer; begin randomize; readln(n); setlength(ma1,n,n); setlength(ma2,n,n); setlength(mar,n,n); writeln('Matrix 1:'); for i:=0 to n-1 do begin for j:=0 to n-1 do begin ma1[i,j]:=random(10); write(ma1[i,j]:4); end; writeln; end; writeln('Matrix 2:'); for i:=0 to n-1 do begin for j:=0 to n-1 do begin ma2[i,j]:=random(10); write(ma2[i,j]:4); end; writeln; end; writeln('Final matrix:'); for i:=0 to n-1 do begin for j:=0 to n-1 do begin for z:=0 to n-1 do mar[i,j]:=mar[i,j]+ma2[z,j]*ma1[i,z]; write(mar[i,j]:4); end; writeln; end; end.
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('n='); readln(n);
if a mod n = 0
then writeln('Число ',a,' кратно ',n) else writeln('Число ',a,' не кратно ',n);
if b mod n = 0
then writeln('Число ',b,' кратно ',n) else writeln('Число ',b,' не кратно ',n);
if c mod n = 0
then writeln('Число ',c,' кратно ',n) else writeln('Число ',c,' не кратно ',n);
end.
Пример:
a=10
b=12
c=27
n=4
Число 10 не кратно 4
Число 12 кратно 4
Число 27 не кратно 4