Var y : integer ;
BEGIN
IF X>0 THEN Y := 1;
IF X<0 THEN Y := -1 ELSE Y := 0 ;
WRITE(Y)
END.0
В какой строке ошибка. Программа на языке Паскаль :
PROGRAM PR ;
CONST X = 2 ; Y = 3 ;
VAR X , Y , Z : REAL ;
BEGIN
Z := X+Y ;
WRITE(Z)
END.3
Указать результат вычисления. Программа на языке Паскаль :
PROGRAM VICH ;
CONST N = 5 ;
VAR I , Z : INTEGER ;
BEGIN
FOR I := 1 TO N DO
BEGIN
Z := 1 ;
Z := Z*I ;
END ;
WRITE(Z)
END.5
Вставьте нужную строку. Программа на языке Паскаль :
PROGRAM AS ;
VAR S , SR : REAL ; I : INTEGER ;
?
BEGIN
S := 0 ;
FOR I := 1 TO 100 DO
BEGIN
READ(A[I]) ;
S := S+A[I];
END ;
WRITE(S)
END. A : ARRAY [1..100] OF REAL ;
Какая строка ошибочная. Программа на языке Паскаль :
PROGRAM PRIM ;
VAR J , K : REAL ; BEGIN
READ(K) ;
J = K+2/4.0 ;
WRITE(J)
END.4
Сколько элементов в заданном массиве. Программа на языке Паскаль :
PROGRAM MAS;
VAR I , J : INTEGER ;
A : ARRAY[0..5,2..10] OF REAL;.54
Что считает программа. Программа на языке Паскаль :
PROGRAM E4 ;
VAR I , J : INTEGER ;
A : ARRAY[1..5,1..5] OF REAL ;
S : REAL;
BEGIN
FOR I := 1 TO 5 DO BEGIN
FOR J := 1 TO 5 DO BEGIN
READ(A[I , J]) ; S := S+A[I , J] ;
END
END;
WRITE(S)
END.сумму всех элементов массива
В какой строке объявлен массив. Программа на языке Паскаль :
PROGRAM MAS ;
VAR I , J : INTEGER ;
A : ARRAY[1..3,1..4] OF REAL ;
S : REAL;
BEGIN
FOR I := 1 TO 3 DO BEGIN
FOR J := 1 TO 4 DO BEGIN
READ(A[I , J]) ; S := S+A[I , J] ;
END
END;
WRITE(S)
END.3
Какую строку нужно вставить. Программа на языке Паскаль :
PROGRAM PRIM ;
VAR A , B , C : ARRAY[1..5] OF REAL ; I : INTEGER ;
?
FOR I := 1 TO 5 DO
READ(A[I] , B[I]) ;
C[I] := A[I]+B[I]/2 ;
WRITE(C[I])
END.BEGIN
Сколько элементов в заданном массиве. Программа на языке Паскаль :
VAR I , J : INTEGER ; A : ARRAY[2..10,3..8] OF REAL ;54
Что считает программа. Программа на языке Паскаль :
PROGRAM PRIM ;
VAR K, I : INTEGER ;
A : ARRAY[1..100] OF REAL ;
S : REAL ;
BEGIN
S := 0 ; K := 0 ;
FOR I := 1 TO 100 DO
BEGIN READ(A[I]) ;
S := S+A[I] ; K := K+1 ;
END ;
WRITE(S , K)
END. сумму и количество всех элементов массива
В какой строке ошибка. Программа на языке Паскаль :
PROGRAM PRIM
VAR A , B , C , Z : REAL ;
BEGIN
READ(A , B , C) ;
Z := A+B+C ;
WRITE(Z)
END.1
В какой строке ошибка. Программа на языке Паскаль :
PROGRAM PRIM ;
VAR X , Y : INTEGER ;
BEGIN READ(X) ;
IF X>0 THEN Y := 10;
IF X<0 THEN Y := -10 ELSE Y := 0;
WRITE Y
END. 6
В какой строке ошибка. Программа на языке Паскаль :
PROGRAM F ;
VAR X , Y , Z : REAL ;
BEGIN READ(X , Y) ;
Z := X+Y ;
WRITE(Z)
END;6
В какой строке ошибка. Программа на языке Паскаль :
PROGRAM PR ;
CONST X = 3 ;
Var y : integer ;
BEGIN
Y := SQR(X+5) ;
WRITE (Y) ;
END.Ошибок нет
В какой строке ошибка. Программа на языке Паскаль :
PROGRAM PRIM ;
VAR X , X : REAL ;
BEGIN READ(X) ;
Y := ARCTAN(SQRT(X) - SQR(X)) ;
WRITE(Y)
END.2
В какой строке ошибка. Программа на языке Паскаль :
PROGRAM PRIM ;
CONST X = 2 ; Y = 3 ;
VAR X , Y , Z : REAL ;
BEGIN
Z := X+Y ;
WRITE(Z)
END.3
В какой строке ошибка. Программа на языке Паскаль :
PROGRAM USL ;
VAR X , Y = REAL ;
BEGIN
READ(X) ;
IF X>0 THEN Y := 0;
IF X<0 THEN Y := 1 ELSE Y := -1;
WRITE (Y)
END.2
Какой ответ выдаст ЭВМ. Программа на языке Паскаль :
PROGRAM GR ;
VAR Z , X : REAL ;
CONST H = 1 ;
BEGIN X := 1.0 ; Z := 0.0 ;
X := X+H ;
Z := Z+SQR(X) ;
WRITE(Z)
END.4
В какой строке объявлен массив. Программа на языке Паскаль :
PROGRAM GR ;
VAR I : INTEGER ;
A : ARRAY[1..10] OF REAL ;
BEGIN FOR I := 1 TO 10 DO
BEGIN READ(A[I]) ;
IF A[I] < 0 A[I] := 0 ELSE A[I] := 1 ;
WRITE(A[I])
END
END.3
Укажите номер строки, в которой допущена ошибка. Программа на языке Паскаль :
PROGRAM PRIM ;
CONST PI = 3.14 ; T = 401.2 ;
VAR X ;A;B;C; INTEGER ;
BEGIN
READ(A , B , C) ;
X := (PI+T) / T ;
WRITE(X)
END.3
В какой строке ошибка. Программа на языке Паскаль :
PROGRAM PRIM ;
CONST A := 2 ;