Решение заданий на языке программирования Бейсик

Решение заданий на языке программирования Бейсик. Задание 1 DECLARE FUNCTION prime x 5 CLS 10 INPUT Nmax 300, n 20 DIM An, n s 0 30 FOR i 1 TO n 40 FOR j 1 TO n 50 PRINT A i, j INPUT Aj, i 60 NEXT j, i 70 FOR i 1 TO n 80 FOR j 1 TO n 90 IF primeAj, i 0 THEN s s 1 100 NEXT j 110 PRINT s s 0 120 NEXT i 130 END FUNCTION prime x prime 1 FOR i 2 TO 300 IF x i THEN 500 IF x i - x i 0 THEN prime 0 500 NEXT i END FUNCTION Задание 2 5 CLS 10 INPUT N 20 S 0 30 DIM AN DIM BN - 1 40 FOR i 1 TO N INPUT Ai NEXT i 50 Z 1 MAX AZ 60 FOR i 2 TO N 70 IF Ai MAX THEN MAX Ai Z i 80 NEXT i 90 FOR i 1 TO N 100 IF i Z THEN S S 1 BS Ai 120 NEXT i 130 FOR i 1 TO N 140 LOCATE 10, i 3 PRINT Ai 150 NEXT i 160 FOR i 1 TO N - 1 170 LOCATE 15, i 3 PRINT Bi 180 NEXT i 190 END Список источников информации 1. Встроенная справка Microsoft Excel 7.0 2. Встроенный учебник Microsoft Windows 98 SE 3. Официальный сайт компании Microsoft Corp. в Internet httpwww.microsoft.comrus.