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
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.
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