6 55 997 22 7 9 400 22000
Вычисленное контрольное значение: 22000 Контроль пройден
DIM v(999) AS long DIM d(99) AS long DIM R(99) AS long dim s as long INPUT "Общее количество всех чисел", N FOR i = 1 TO N Input v(i) NEXT i input "Контрольное значение", K j=1 FOR i = 1 TO N-1 for z=i+1 TO N s =v(i)*v(z) if (s mod 22 = 0) then R(j)= s j=j+1 end if next z next i max=-99999 FOR i = 1 TO j IF R(i)>max THEN max=R(i) NEXT i if R(1)=0 then print "Вычисленное контрольное значение:",0 max=0 else print "Вычисленное контрольное значение:",max end if if max=K then print "Контроль пройден" else print "Контроль не пройден" end if
6 70 17 6 99 997 70 6930
Вычисленное контрольное значение: 6930 Контроль пройден
DIM v(999) AS long DIM d(99) AS long DIM R(99) AS long dim s as long INPUT "Общее количество всех чисел", N FOR i = 1 TO N Input v(i) NEXT i input "Контрольное значение", K j=1 FOR i = 1 TO N-1 for z=i+1 TO N s =v(i)*v(z) if (s mod 6 = 0) then R(j)= s j=j+1 end if next z next i max=-99999 FOR i = 1 TO j IF R(i)>max THEN max=R(i) NEXT i if R(1)=0 then print "Вычисленное контрольное значение:",0 max=0 else print "Вычисленное контрольное значение:",max end if if max=K then print "Контроль пройден" else print "Контроль не пройден" end if
6 95 17 10 102 957 95 9690
Вычисленное контрольное значение: 9690 Контроль пройден
DIM v(999) AS long DIM d(99) AS long DIM R(99) AS long dim s as long INPUT "Общее количество всех чисел", N FOR i = 1 TO N Input v(i) NEXT i input "Контрольное значение", K j=1 FOR i = 1 TO N-1 for z=i+1 TO N s =v(i)*v(z) if (s mod 10 = 0) then R(j)= s j=j+1 end if next z next i max=-99999 FOR i = 1 TO j IF R(i)>max THEN max=R(i) NEXT i if R(1)=0 then print "Вычисленное контрольное значение:",0 max=0 else print "Вычисленное контрольное значение:",max end if if max=K then print "Контроль пройден" else print "Контроль не пройден" end if
6 70 21 997 7 9 300 21000
Вычисленное контрольное значение: 21000 Контроль пройден
DIM v(999) AS long DIM d(99) AS long DIM R(99) AS long dim s as long INPUT "Общее количество всех чисел", N FOR i = 1 TO N Input v(i) NEXT i input "Контрольное значение", K j=1 FOR i = 1 TO N-1 for z=i+1 TO N s =v(i)*v(z) if (s mod 21 = 0) then R(j)= s j=j+1 end if next z next i max=-99999 FOR i = 1 TO j IF R(i)>max THEN max=R(i) NEXT i if R(1)=0 then print "Вычисленное контрольное значение:",0 max=0 else print "Вычисленное контрольное значение:",max end if if max=K then print "Контроль пройден" else print "Контроль не пройден" end if