Var N,K,S,M: integer; begin {1-я задача} writeln("Введите натуральное число"); readln(N); if N mod 10 = 8 then writeln("Число оканчивается на 8") else writeln("Число не оканчивается на 8"); {2-я задача} writeln("Введите количество гостей пришедших к Пете"); readln(K); if (25-K*2)>0 then writeln("Конфет хватит") else writeln("Конфет недостаточно"); {3-я задача} writeln("Введите количество рублей у Пети, а затем цену одной тетради"); readln(S); readln(M); if (S-M*5)>=0 then writeln("Петя сможет купить пять тетрадей"); else writeln("Пяти тетрадей не купить"); end.
CLS RANDOMIZE TIMER INPUT "n = ", n DIM A(n, n) PRINT "1 - BBECTI ELEMENTbI C KLABbI" PRINT "2 - RANDOM" INPUT BBOD IF BBOD = 2 THEN FOR i = 1 TO n FOR j = 1 TO n A(i, j) = RND * 21 - 10 NEXT j NEXT i ELSE FOR i = 1 TO n FOR j = 1 TO n PRINT "A["; i; ","; j; "] = "; INPUT "", A(i, j) NEXT j NEXT i END IF CLS FOR i = 1 TO n FOR j = 1 TO n PRINT USING "###.##"; A(i, j); PRINT " "; NEXT j PRINT NEXT i C = 1 FOR i = 1 TO n FOR j = 1 TO n IF A(i, j) <> A(j, i) THEN C = 0 END IF NEXT j NEXT i IF C = 1 THEN PRINT "DA" ELSE PRINT "NET" END IF END
саму строку то дай
Объяснение: