Var X , y : real ;
BEGIN READ(X) ;
Y := SQR(X)+2*X. Программа на языке Паскаль Y = X2+2X ;
Указать результат:
PROGRAM M;
CONST X = 10;
Var y : integer;
BEGIN
IF X>0 THEN Y : = 1;
IF X<0 THEN Y: = -1 ELSE Y : = 0;
WRITE (Y)
END. 0
Указать результат:
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 USL;
CONST A = 2;
Var c : integer;
BEGIN
IF A>0 THEN C : = 2 * A;
IF A<0 THEN C: = A ELSE C : = 0;
WRITE (C)
END. 0
Указать результат:
PROGRAM PRIM;
CONST K = 1.2; S = 4.8; L = 6.0;
VAR X : REAL;
BEGIN
X : = L / (K + S) + L / K;
WRITE (X)
END. 6
Указать результат:
PROGRAM PRIM;
CONST X = 4;
VAR Z : REAL;
BEGIN
IF X>0 THEN Z : = SQR(X) ELSE Z : = SQRT(X);
WRITE (Z)
END. 16
Указать результат:
PROGRAM GR;
CONST H = 1.0;
VAR Z, X : REAL;
BEGIN
X : = 1.0; Z : = 2.0;
X : = X + H;
Z : = Z + SQR(X);
WRITE (Z)
END. 6
В какой строке ошибка:
PROGRAM A;
VAR J, K : REAL; BEGIN
READ (K);
J = K + 2 / 4.01;
WRITE (J)
END. 4
В какой строке ошибка:
PROGRAM A;
VAR X, Y : INTEGER;
BEGIN
READ (X);
IF X>0 THEN Y : = 10;
IF X <= 0 THEN Y : = -10;
WRITE Y
END. 7
В какой строке ошибка:
PROGRAM A;
VAR X, Y, Z : REAL;
BEGIN READ (X, Y);
Z : = X + Y;
WRITE (Z)
END. ошибок нет
В какой строке ошибка:
PROGRAM A;
VAR I, K : REAL;
BEGIN READ (K);
I : = K + 2 / 3K;
WRITE (I)
END. 4
В какой строке ошибка:
PROGRAM A1;
CONST A : = 2.1; B : = 9.8;
VAR X, Y : REAL;
BEGIN
READ (K);
X : = (A + B) / 2;
Y : = 2 * X + A;
WRITE (X, Y)
END. 2
В какой строке ошибка:
PROGRAM A;
VAR B, Y, Z : REAL;
BEGIN READ (B, Y);
IF (B – Y) : = 0 THEN Z : = 0;
IF (B – Y) <> 0 THEN Z : =1;
WRITE (Z)
END. 4
Что вычисляет программа:
PROGRAM A;
VAR B : ARRAY [1..10] OF REAL;
M : REAL; I : INTEGER;
BEGIN FOR I : = 1 TO 10 DO READ (B[I]);
M : = B[1];
FOR I : = 2 TO 10 DO
IF B[I] > M THEN M : = B[I];
WRITE (M)
END.максимальный элемент массива
Что вычисляет программа:
PROGRAM A;
VAR B : ARRAY [1..10] OF REAL;
M : REAL; I : INTEGER;
BEGIN FOR I : = 1 TO 10 DO READ (B[I]);
M : = B[1];
FOR I : = 2 TO 10 DO
IF B[I] < M THEN M : = B[I];
WRITE (M)
END.минимальный элемент массива
Что вычисляет программа:
PROGRAM A;
VAR B : ARRAY [1..10] OF REAL;
M : REAL; I : INTEGER;
BEGIN FOR I : = 1 TO 10 DO READ (B[I]);
M : = 0;
FOR I : = 1 TO 10 DO
M : = M + B[I];
WRITE (M)
END.сумму элементов массива
Что вычисляет программа:
PROGRAM A;
VAR B : ARRAY [1..10] OF REAL;
M : REAL; I : INTEGER;
BEGIN FOR I : = 1 TO 10 DO READ (B[I]);
M : = 0;
FOR I : = 1 TO 10 DO
M : = M + B[I];
WRITE (M / 10)
END.среднее арифметическое элементов
Что вычисляет программа:
PROGRAM A;
VAR B : ARRAY [1..10] OF REAL;
M : REAL; I : INTEGER;
BEGIN FOR I : = 1 TO 10 DO READ (B[I]);
M : = B[10]; B[10] : = B[1]; B[1] : = M;
FOR I : = 1 TO 10 DO WRITE (B[I]);
END.меняет местами первый и последний элемент
Что вычисляет программа:
PROGRAM A;
VAR B : ARRAY [1..10] OF REAL;
I : INTEGER; M : REAL;
BEGIN FOR I : = 1 TO 10 DO READ (B[I]);
M : = 0;
FOR I : = 1 TO 10 DO
IF B[I] > 0 THEN M : = M + B[I];
WRITE (M)
END.сумму положительных элементов
Что вычисляет программа:
PROGRAM A;
VAR B : ARRAY [1..10] OF REAL;
I : INTEGER; M : REAL;
BEGIN FOR I : = 1 TO 10 DO READ (B[I]);
M : = 0;
FOR I : = 1 TO 10 DO
IF B[I] < 0 THEN M : = M + B[I];
WRITE (M)
END.сумму отрицательных элементов
Что вычисляет программа:
PROGRAM A;
VAR B : ARRAY [1..10] OF REAL;
I, N : INTEGER; M : REAL;
BEGIN FOR I : = 1 TO 10 DO READ (B[I]);
M : = 0; N : = 0;
FOR I : = 1 TO 10 DO
IF B[I] < 0 THEN BEGIN M : = M + B[I];
N : = N + 1 END;
WRITE (M / N)
END.среднее арифметическое отрицательных элементов
Что вычисляет программа:
PROGRAM A;
VAR B : ARRAY [1..10] OF REAL;
I, N : INTEGER; M : REAL;
BEGIN FOR I : = 1 TO 10 DO READ (B[I]);
M : = 0; N : = 0;
FOR I : = 1 TO 10 DO
IF B[I] > 0 THEN BEGIN M : = M + B[I]; N : = N +1 END;
WRITE (M / N)
END.среднее арифметическое положительных элементов
Что вычисляет программа:
PROGRAM A;
VAR B : ARRAY [1..10] OF REAL;
I, M : INTEGER;
BEGIN FOR I : = 1 TO 10 DO READ (B[I]);
M : = 0;
FOR I : = 1 TO 10 DO
IF B[I] < 0 THEN M : = M + 1;
WRITE (M)
END.количество отрицательных элементов
Что вычисляет программа:
PROGRAM A;
VAR B : ARRAY [1..10] OF REAL;
I, M : INTEGER;
BEGIN FOR I : = 1 TO 10 DO READ (B[I]);
M : = 0;
FOR I : = 1 TO 10 DO
IF B[I] > 0 THEN M : = M + 1;
WRITE (M)
END.количество положительных элементов
Программа вычисляет наименьший элемент массива. Вставьте нужную строку.
PROGRAM A;
VAR B : ARRAY [1..10,1..10] OF REAL;
I, J : INTEGER; M : REAL;
BEGIN FOR I : = 1 TO 10 DO
FOR J : = 1 TO 10 DO READ (B[I, J]);
M : = B[1,1];
FOR I : = 1 TO 10 DO
FOR J : = 1 TO 10 DO
?
WRITE (M)
END.IF M>B[I, J] THEN M : = B[I, J];
Программа вычисляет наибольший элемент массива. Вставьте нужную строку.
PROGRAM A;
VAR B : ARRAY [1..10,1..10] OF REAL;
I, J : INTEGER; M : REAL;
BEGIN FOR I : = 1 TO 10 DO
FOR J : = 1 TO 10 DO READ (B[I, J]);
M : = B[1,1];
FOR I : = 1 TO 10 DO
FOR J : = 1 TO 10 DO
?
WRITE (M)
END.IF M<B[I, J] THEN M : = B[I, J];
Программа вычисляет количество положительных элементов массива. Вставьте нужную строку.
PROGRAM A;
VAR B : ARRAY [1..10,1..10] OF REAL;
I, J, M : INTEGER;
BEGIN FOR I : = 1 TO 10 DO
FOR J : = 1 TO 10 DO READ (B[I, J]);
M : = 0;
FOR I : = 1 TO 10 DO
FOR J : = 1 TO 10 DO
?
WRITE (M)
END.IF B[I, J]>0 THEN M : = M + 1;
Программа вычисляет сумму положительных элементов массива. Вставьте нужную строку.
PROGRAM A;
VAR B : ARRAY [1..10,1..10] OF REAL;
I, J : INTEGER; M : REAL;
BEGIN FOR I : = 1 TO 10 DO
FOR J : = 1 TO 10 DO READ (B[I, J]);
M : = 0;
FOR I : = 1 TO 10 DO
FOR J : = 1 TO 10 DO
?
WRITE (M)
END. IF B[I, J]>0 THEN M : = M + B[I, J];
Программа вычисляет количество отрицательных элементов массива. Вставьте нужную строку.
PROGRAM A;
VAR B : ARRAY [1..10,1..10] OF REAL;
I, J, M : INTEGER;
BEGIN FOR I : = 1 TO 10 DO
FOR J : = 1 TO 10 DO READ (B[I, J]);
M : = 0;
FOR I : = 1 TO 10 DO
FOR J : = 1 TO 10 DO
?
WRITE (M)
END.IF B[I, J]<0 THEN M : = M + 1;
Программа вычисляет сумму отрицательных элементов массива. Вставьте нужную строку.
PROGRAM A;
VAR B : ARRAY [1..10,1..10] OF REAL;
I, J : INTEGER; M : REAL;
BEGIN FOR I : = 1 TO 10 DO
FOR J : = 1 TO 10 DO READ (B[I, J]);
M : = 0;
FOR I : = 1 TO 10 DO
FOR J : = 1 TO 10 DO
?
WRITE (M)
END.IF B[I, J]<0 THEN M : = M + B[I, J];
Программа вычисляет среднее арифметическое положительных элементов массива. Вставьте нужную строку.
PROGRAM A;
VAR B : ARRAY [1..10,1..10] OF REAL;
I, J, N : INTEGER; M : REAL;
BEGIN FOR I : = 1 TO 10 DO
FOR J : = 1 TO 10 DO READ (B[I, J]);
M : = 0; N : = 0;
FOR I : = 1 TO 10 DO
FOR J : = 1 TO 10 DO
?
WRITE (M / N)
END. IF B[I, J]>0 THEN BEGIN M : = M + B[I, J]; N : = N + 1; END;
Указать результат выполнения программы. Программа на языке Паскаль
PROGRAM USL;
CONST X=15;
VAR Y: REAL;
BEGIN
IF X>0 THEN Y: = 1 ELSE IF X<0 THEN Y: = -1 ELSE Y: = 0;
WRITE (Y);
END.1
Указать результат выполнения программы. Программа на языке Паскаль
PROGRAM US;
CONST А=7;
VAR Y: REAL;
BEGIN
IF A<0 THEN Y: = 1 ELSE IF A>0 THEN Y: = -1 ELSE Y: = 0;
WRITE (Y);
END.-1
Указать результат выполнения программы. Программа на языке Паскаль
PROGRAM S;
CONST N= - 7;
VAR T: REAL;
BEGIN
IF N=0 THEN T: = 1 ELSE IF N>0 THEN T: = -1 ELSE T: = 0;
WRITE (T);
END.0
В какой строке ошибка. Программа на языке Паскаль :
PROGRAM UKAZ ;
VAR A , B : ^INTEGER;
K : INTEGER ;
BEGIN
NEW(A) ; A^ := 1;
NEW(B); B^ := 2;
K = A+B;
DISPOSE(B);
DISPOSE(A);
WRITE(K)
END.7
В какой строке ошибка. Программа на языке Паскаль :
PROGRAM ST ;
VAR A ; B ; C ; Z : REAL ;
BEGIN
READ(A , B , C) ;
Z := A+B+C ;
WRITE(Z)
END.2
В какой строке ошибка. Программа на языке Паскаль :
PROGRAM S ;
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.нет ошибки
В какой строке ошибка. Программа на языке Паскаль
PROGRAM PRIM
VAR A , B , C , Z : REAL ;
BEGIN
READ(A , B , C) ;
Z := A+B+C ;
WRITE(Z)
END.1
Указать результат вычисления. Программа на языке Паскаль :
PROGRAM M ;
CONST X = 10 ;