Значение переменной R после выполнения фрагмента программы
BASIC
X=20
Y=10
S=X+Y
P=X*Y
R=S+P/2
PASCAL
X:=20;
Y:=10;
S:=X+Y;
P:=X*Y;
R=S+P/2;
будет равно.
Значение переменной R после выполнения фрагмента программы
BASIC
X=20
Y=1
S=X/Y
P=X*Y
R=S+P/2
PASCAL
X:=20;
Y:=1;
S:=X/Y;
P:=X*Y;
R=S+P/2;
будет равно.
Значение переменной P после выполнения программы
BASIC
I=0: J=0:
IF I+J=0 THEN I=3 ELSE J=4
P=I.J
PRINT P
END
PASCAL
VAR
I, J, P: INTEGER;
BEGIN
I:=0; J:=0;
IF I+J=0 THEN I:=3 ELSE J:=4;
P:=I.J;
WRITE (P);
END.
будет равно.
Значение переменной P после выполнения программы
BASIC
I=2: J=2:
IF I+J=0 THEN I=I+3
P=I+J
PRINT P
END
PASCAL
VAR
I, J, P: INTEGER;
BEGIN
I:=2; J:=2;
IF I+J=0 THEN I:=I+3;
P:=I+J;
WRITE (P);
END.
будет равно.
Значение переменной P после выполнения программы
BASIC
I=1: J=1:
IF I+J<>0 THEN I=3 ELSE J=4
P=I.J
PRINT P
END
PASCAL
VAR
I, J, P: INTEGER;
BEGIN
I:=1; J:=1;
IF I+J<>0 THEN I:=3 ELSE J:=4;
P:=I.J;
WRITE (P);
END.
будет равно.
Значение переменной P после выполнения программы
BASIC
I=10: J=0:
IF I+J=0 THEN I=3 ELSE J=4
P=I.J
PRINT P
END
PASCAL
VAR
I, J, P: INTEGER;
BEGIN
I:=10; J:=0;
IF I+J=0 THEN I:=3 ELSE J:=4;
P:=I.J;
WRITE (P);
END.
будет равно.
Значение переменной P после выполнения программы
BASIC
I=0: J=10:
IF I+J<>0 THEN I=3 ELSE J=4
P=I+J
PRINT P
END
PASCAL
VAR
I, J, P: INTEGER;
BEGIN
I:=0; J:=10;
IF I+J<>0 THEN I:=3 ELSE J:=4;
P:=I+J;
WRITE (P);
END.
будет равно.
Значение переменной P после выполнения программы
BASIC
I=10: J=10:
IF I-J=0 THEN I=I+3
P=I.J
PRINT P
END
PASCAL
VAR
I, J, P: INTEGER;
BEGIN
I:=10; J:=10;
IF I-J=0 THEN I:=I+3;
P:=I.J;
WRITE (P);
END.
будет равно.
Переменная Х после выполнения фрагмента программы
BASIC
A=5
B=7
IF A>=B THEN X=A+B ELSE X=2*A-B
PASCAL
A:=5;
B:=7;
IF A>=B THEN X:=A+B ELSE X:=2*A-B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=9
IF A<0 THEN X=B-A ELSE X=B+A
PASCAL
A:=7;
B:=9;
IF A<0 THEN X:=B-A ELSE X:=B+A;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=9
IF A>0 THEN X=B-A ELSE X=B+A
PASCAL
A:=7;
B:=9;
IF A>0 THEN X:=B-A ELSE X:=B+A;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=-7
B=9
IF A>0 THEN X=A-B ELSE X=A+B
PASCAL
A:=-7;
B:=9;
IF A>0 THEN X:=A-B ELSE X:=A+B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=-7
B=9
IF A<0 THEN X=A-B ELSE X=A+B
PASCAL
A:=-7;
B:=9;
IF A<0 THEN X:=A-B ELSE X:=A+B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=6
IF B<0 THEN X=A-B ELSE X=A+B
PASCAL
A:=7;
B:=6;
IF B<0 THEN X:=A-B ELSE X:=A+B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=6
IF B>0 THEN X=A-B ELSE X=A+B
PASCAL
A:=7;
B:=6;
IF B>0 THEN X:=A-B ELSE X:=A+B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=9
IF A+B>0 THEN X=(A+B)/2 ELSE X=5
PASCAL
A:=7;
B:=9;
IF A+B>0 THEN X:=(A+B)/2 ELSE X:=5;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=9
IF A+B<0 THEN X=(A+B)/2 ELSE X=5
PASCAL
A:=7;
B:=9;
IF A+B<0 THEN X:=(A+B)/2 ELSE X:=5;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=9
IF A-B=0 THEN X=(A+B)/2 ELSE X=5
PASCAL
A:=7;
B:=9;
IF A-B=0 THEN X:=(A+B)/2 ELSE X:=5;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=9
IF A<0 THEN X=A-B ELSE X=A+B
PASCAL
A:=7;
B:=9;
IF A<0 THEN X:=A-B ELSE X:=A+B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=9
IF A>0 THEN X=A-B ELSE X=A+B
PASCAL
A:=7;
B:=9;
IF A>0 THEN X:=A-B ELSE X:=A+B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=8
B=-2
IF A>0 THEN X=A-B ELSE X=A+B
PASCAL
A:=8;
B:=-2;
IF A>0 THEN X:=A-B ELSE X:=A+B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=8
B=-2
IF A<0 THEN X=A-B ELSE X=A+B
PASCAL
A:=8;
B:=-2;
IF A<0 THEN X:=A-B ELSE X:=A+B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=-9
IF A+B>0 THEN X=(A+B)/2 ELSE X=5
PASCAL
A:=7;
B:=-9;
IF A+B>0 THEN X:=(A+B)/2 ELSE X:=5;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=-9
IF A+B<0 THEN X=(A+B)/2 ELSE X=5
PASCAL
A:=7;
B:=-9;
IF A+B<0 THEN X:=(A+B)/2 ELSE X:=5;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=9
B=3
IF A/B>1 THEN X=(A+B)/2 ELSE X=A
PASCAL
A:=9;
B:=3;
IF A/B>1 THEN X:=(A+B)/2 ELSE X:=A;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=9
B=3
IF A/B<1 THEN X=(A+B)/2 ELSE X=A
PASCAL
A:=9;
B:=3;
IF A/B<1 THEN X:=(A+B)/2 ELSE X:=A;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=3
B=9
IF A/B>1 THEN X=(A+B)/2 ELSE X=B
PASCAL
A:=3;
B:=9;
IF A/B>1 THEN X:=(A+B)/2 ELSE X:=B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=3
B=9
IF A/B<1 THEN X=(A+B)/2 ELSE X=B
PASCAL
A:=3;
B:=9;
IF A/B<1 THEN X:=(A+B)/2 ELSE X:=B;
будет принимать значение равное.
Значение переменной S после выполнения программы
BASIC
S=5
FOR X=1 TO 3
S=S+X
NEXT X
PRINT S
END
PASCAL
VAR
S, X: INTEGER;
BEGIN
S:=5;
FOR X:=1 TO 3 DO
S:=S+X;
WRITE (S);
END.
будет равно.
Значение переменной S после выполнения программы
BASIC
S=3
FOR X=1 TO 3
S=S+2
NEXT X
PRINT S
END
PASCAL
VAR
S, X: INTEGER;
BEGIN
S:=3;
FOR X:=1 TO 3 DO
S:=S+2;
WRITE (S);
END.
будет равно.
Значение переменной S после выполнения программы
BASIC
S=5
FOR X=1 TO 3
S=S+2
NEXT X
PRINT S
END
PASCAL
VAR
S, X: INTEGER;
BEGIN
S:=5;
FOR X:=1 TO 3 DO
S:=S+2;
WRITE (S);
END.
будет равно.
Значение переменной S после выполнения программы
BASIC
S=2
FOR X=1 TO 2
S=S+X
NEXT X
PRINT S
END
PASCAL
VAR
S, X: INTEGER;
BEGIN
S:=2;
FOR X:=1 TO 2 DO
S:=S+X;
WRITE (S);
END.
будет равно.
Значение переменной S после выполнения программы
BASIC
S=5
FOR X=1 TO 5
S=S+1
NEXT X
PRINT S
END
PASCAL
VAR
S, X: INTEGER;
BEGIN
S:=5;
FOR X:=1 TO 5 DO
S:=S+1;
WRITE (S);
END.
будет равно.
Значение переменной S после выполнения программы
BASIC
S=3
FOR X=1 TO 5
S=S+1
NEXT X
PRINT S
END
PASCAL
VAR
S, X: INTEGER;
BEGIN
S:=3;
FOR X:=1 TO 5 DO
S:=S+1;
WRITE (S);
END.
будет равно.
Значение переменной Y после выполнения программы
BASIC
Y=5
FOR X=1 TO 10
Y=Y+1
NEXT X
PRINT Y
PASCAL
VAR
X,Y:INTEGER;
BEGIN
Y:=5;
FOR X:=1 TO 10 DO
Y:=Y+1;
WRITE(Y);
END.
будет равно.
Значение переменной Y после выполнения программы
BASIC
Y=0
FOR X=1 TO 5
Y=Y+2
NEXT X
PRINT Y
PASCAL
VAR
X,Y:INTEGER;
BEGIN
Y:=0;
FOR X:=1 TO 5 DO
Y:=Y+2;
WRITE(Y);
END.
будет равно.
Значение переменной Y после выполнения программы
BASIC
Y=0
FOR X=1 TO 3
Y=Y+X
NEXT X
PRINT Y
PASCAL
VAR
X,Y:INTEGER;
BEGIN
Y:=0;
FOR X:=1 TO 3 DO
Y:=Y+X;
WRITE(Y);
END.
будет равно.
Значение переменной Y после выполнения программы
BASIC
Y=1
FOR X=1 TO 3
Y=Y*2
NEXT X
PRINT Y
PASCAL
VAR
X,Y:INTEGER;
BEGIN
Y:=1;
FOR X:=1 TO 3 DO
Y:=Y*2;
WRITE(Y);
END.
будет равно.
Значение переменной Y после выполнения программы
BASIC
Y=1
FOR X=1 TO 3
Y=Y*X
NEXT X
PRINT Y
PASCAL
VAR
X,Y:INTEGER;
BEGIN
Y:=1;
FOR X:=1 TO 3 DO
Y:=Y*X;
WRITE(Y);
END.
будет равно.
Значение переменной Y после выполнения программы
BASIC
Y=20
FOR X=1 TO 3
Y=Y/2
NEXT X
PRINT Y
PASCAL
VAR
X:INTEGER;
Y:REAL;
BEGIN
Y:=20;
FOR X:=1 TO 3 DO
Y:=Y/2;
WRITE(Y);
END.
будет равно.
Значение переменной Y после выполнения программы
BASIC
Y=0
FOR X=3 TO 1 STEP -1
Y=Y+X
NEXT X
PRINT Y
PASCAL
VAR
X,Y:INTEGER;
BEGIN
Y:=0;
FOR X:=3 DOWNTO 1 DO
Y:=Y+X;
WRITE(Y);
END.
будет равно.
Значение переменной S после выполнения программы
BASIC
S=5
FOR X=3 TO 1 STEP -1
S=S+X
NEXT X
PRINT S
END
PASCAL
VAR
S, X: INTEGER;
BEGIN
S:=5;
FOR X:=3 DOWNTO 1 DO
S:=S+X;
WRITE (S);
END.
будет равно.
Значение переменной Y после выполнения программы
BASIC
Y=40
FOR X=1 TO 3
Y=Y/2
NEXT X
PRINT Y
PASCAL
VAR
X:INTEGER;
Y:REAL;
BEGIN
Y:=40;
FOR X:=1 TO 3 DO
Y:=Y/2;
WRITE(Y);
END.
будет равно.
Значение переменной Y после выполнения программы
BASIC
Y=1
FOR X=3 TO 1 STEP -1
Y=Y*X
NEXT X
PRINT Y
PASCAL
VAR
X,Y:INTEGER;
BEGIN
Y:=1;
FOR X:=3 DOWNTO 1 DO
Y:=Y*X;
WRITE(Y);
END.
будет равно.
Значение переменной Y после выполнения программы
BASIC
Y=0
FOR X=10 TO 1 STEP -1
Y=Y+1
NEXT X
PRINT Y
PASCAL
VAR
X,Y:INTEGER;
BEGIN
Y:=0;
FOR X:=10 DOWNTO 1 DO
Y:=Y+1;
WRITE(Y);
END.
будет равно.
Значение переменной Y после выполнения программы
BASIC
Y=0
FOR X=3 TO 1 STEP -1
Y=Y+2
NEXT X
PRINT Y
PASCAL
VAR
X,Y:INTEGER;
BEGIN
Y:=0;
FOR X:=3 DOWNTO 1 DO
Y:=Y+2;
WRITE(Y);
END.
будет равно.
Значение переменной Y после выполнения программы
BASIC
Y=0
FOR X=4 TO 1 STEP -1
Y=Y+X
NEXT X
PRINT Y
PASCAL
VAR
X,Y:INTEGER;
BEGIN
Y:=0;
FOR X:=4 DOWNTO 1 DO
Y:=Y+X;
WRITE(Y);
END.
будет равно.
Значение переменной Y после выполнения программы
BASIC
Y=0
FOR X=5 TO 1 STEP -1
Y=Y+1
NEXT X
PRINT Y
PASCAL
VAR
X,Y:INTEGER;
BEGIN
Y:=0;
FOR X:=5 DOWNTO 1 DO
Y:=Y+1;
WRITE(Y);
END.
будет равно.
Значение переменной Y после выполнения программы
BASIC
Y=0
FOR X=5 TO 1 STEP -1
Y=Y+2
NEXT X
PRINT Y
PASCAL
VAR
X,Y:INTEGER;
BEGIN
Y:=0;
FOR X:=5 DOWNTO 1 DO
Y:=Y+2;
WRITE(Y);
END.
будет равно.
Значение переменной S после выполнения программы
BASIC
S=0
FOR X=1 TO 5
S=S+1
NEXT X
PRINT S
END
PASCAL
VAR
S, X: INTEGER;
BEGIN
S:=0;
FOR X:=1 TO 5 DO
S:=S+1;
WRITE (S);
END.
будет равно.
Значение переменной S после выполнения программы
BASIC
S=0
FOR X=1 TO 3
S=S+2
NEXT X
PRINT S
END
PASCAL
VAR
S, X: INTEGER;
BEGIN
S:=0;
FOR X:=1 TO 3 DO
S:=S+2;
WRITE (S);
END.
будет равно.
Значение переменной S после выполнения программы
BASIC
S=2
FOR X=1 TO 3
S=S+X
NEXT X
PRINT S
END
PASCAL
VAR
S, X: INTEGER;
BEGIN
S:=2;
FOR X:=1 TO 3 DO
S:=S+X;
WRITE (S);
END.
будет равно.
Значение переменной S после выполнения программы
BASIC
S=1
FOR X=1 TO 3
S=S+3
NEXT X
PRINT S
END
PASCAL
VAR
S, X: INTEGER;
BEGIN
S:=1;
FOR X:=1 TO 3 DO
S:=S+3;
WRITE (S);
END.
будет равно.
Значение переменной S после выполнения программы
BASIC
S=5
FOR X=1 TO 5
S=S+2
NEXT X
PRINT S
END
PASCAL
VAR
S, X: INTEGER;
BEGIN
S:=5;
FOR X:=1 TO 5 DO
S:=S+2;
WRITE (S);
END.
будет равно.
Переменная Х после выполнения фрагмента программы
BASIC
A=5
B=7
IF (A0) THEN X=A+B ELSE X=2*A-B
END IF
PASCAL
A:=5;
B:=7;
IF (A0) THEN X:=A+B ELSE X:=2*A-B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=5
B=-7
IF (A0) THEN X=A+B ELSE X=2*A-B
END IF
PASCAL
A:=5;
B:=-7;
IF (A0) THEN X:=A+B ELSE X:=2*A-B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=5
B=4
C=3
IF (A>B) AND (A>C) THEN X=A+B+C ELSE X=2*A-B
PASCAL
A:=5;
B:=4;
C:=3;
IF (A>B) AND (A>C) THEN X:=A+B+C ELSE X:=2*A-B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=5
B=4
C=8
IF (A>B) OR (A>C) THEN X=A+B ELSE X=2*A-B
PASCAL
A:=5;
B:=4;
C:=8;
IF (A>B) OR (A>C) THEN X:=A+B ELSE X:=2*A-B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=5
B=4
C=8
IF (A>B) AND (A>C) THEN X=A+B ELSE X=2*A-B
PASCAL
A:=5;
B:=4;
C:=8;
IF (A>B) AND (A>C) THEN X:=A+B ELSE X:=2*A-B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=1
B=4
C=8
IF (A<=B) OR (A>C) THEN X=A+B ELSE X=2*A-B
PASCAL
A:=1;
B:=4;
C:=8;
IF (A<=B) OR (A>C) THEN X:=A+B ELSE X:=2*A-B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=3
B=4
C=8
IF (A<=B) AND (A>C) THEN X=A+B ELSE X=2*A-B
PASCAL
A:=3;
B:=4;
C:=8;
IF (A<=B) AND (A>C) THEN X:=A+B ELSE X:=2*A-B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=5
B=7
IF (A>=B) OR (B>0) THEN X=A+B ELSE X=2*A-B
END IF
PASCAL
A:=5;
B:=7;
IF (A>=B) OR (B>0) THEN X:=A+B ELSE X:=2*A-B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=5
B=7
IF (A>=B) AND (B>0) THEN X=A+B ELSE X=2*A+B
PASCAL
A:=5;
B:=7;
IF (A>=B) AND (B>0) THEN X:=A+B ELSE X:=2*A+B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
X=3
A=5
B=-12
IF (A>0) AND (B>0) THEN X=X+A ELSE X=X-B
PASCAL
X:=3;
A:=5;
B:=-12;
IF (A>0) AND (B>0) THEN X:=X+A ELSE X:=X-B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
X=3
A=5
B=-12
IF (A>0) OR (B>0) THEN X=X+A ELSE X=X-B
PASCAL
X:=3;
A:=5;
B:=-12;
IF (A>0) OR (B>0) THEN X:=X+A ELSE X:=X-B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
X=3
A=5
B=-12
IF (A>0) AND (B<=0) THEN X=X+A ELSE X=X-B
PASCAL
X:=3;
A:=5;
B:=-12;
IF (A>0) AND (B<=0) THEN X:=X+A ELSE X:=X-B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
X=3
A=5
B=-12
IF (A>0) OR (B<=0) THEN X=X+A ELSE X=X-B
PASCAL
X:=3;
A:=5;
B:=-12;
IF (A>0) OR (B<=0) THEN X:=X+A ELSE X:=X-B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
X=3
A=5
B=-12
IF (A<0) OR (B>=0) THEN X=X+A ELSE X=X-B
PASCAL
X:=3;
A:=5;
B:=-12;
IF (A<0) OR (B>=0) THEN X:=X+A ELSE X:=X-B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=-7
B=-9
IF (A<0) AND (B<0) THEN X=A-B ELSE X=A+B
PASCAL
A:=-7;
B:=-9;
IF (A<0) AND (B<0) THEN X:=A-B ELSE X:=A+B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=-9
IF (A<0) AND (B<0) THEN X=A-B ELSE X=A+B
PASCAL
A:=7;
B:=-9;
IF (A<0) AND (B<0) THEN X:=A-B ELSE X:=A+B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=-9
IF (A>0) AND (B<0) THEN X=A-B ELSE X=A+B
PASCAL
A:=7;
B:=-9;
IF (A>0) AND (B<0) THEN X:=A-B ELSE X:=A+B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=-9
IF (A>0) OR (B>0) THEN X=A-B ELSE X=A+B
PASCAL
A:=7;
B:=-9;
IF (A>0) OR (B>0) THEN X:=A-B ELSE X:=A+B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=9
IF (A>0) AND (B>0) THEN X=A-B ELSE X=A+B
PASCAL
A:=7;
B:=9;
IF (A>0) AND (B>0) THEN X:=A-B ELSE X:=A+B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=9
B=7
IF (A>0) OR (B>0) THEN X=A-B ELSE X=A+B
PASCAL
A:=9;
B:=7;
IF (A>0) OR (B>0) THEN X:=A-B ELSE X:=A+B;
будет принимать значение равное.
Переменная Х после выполнения фрагмента программы
BASIC
A=7
B=9
IF (A<0) AND (B<0) THEN X=A-B ELSE X=A+B
PASCAL
A:=7;
B:=9;
IF (A<0) AND (B<0) THEN X:=A-B ELSE X:=A+B;
будет принимать значение равное.
Значение переменной Y после выполнения программы
BASIC
Y=0
X=0
WHILE X<10
Y=Y+1
X=X+1
WEND
PRINT Y
PASCAL
VAR
Y,X:INTEGER;
BEGIN
Y:=0;
X:=0;
WHILE X<10 DO
BEGIN
Y=Y+1;
X=X+1;
END;
WRITE(Y);
END.
будет равно…
Значение переменной Y после выполнения программы
BASIC
Y=1
X=1
WHILE X<10
Y=Y+1
X=X+1
WEND
PRINT Y
PASCAL
VAR
Y,X:INTEGER;
BEGIN
Y:=1;
X:=1;
WHILE X<10 DO
BEGIN
Y=Y+1;
X=X+1;
END;
WRITE(Y);
END.
будет равно…
Значение переменной Y после выполнения программы
BASIC
Y=0
X=1
WHILE X<10
Y=Y+1
X=X+1
WEND
PRINT Y
PASCAL
VAR
Y,X:INTEGER;
BEGIN
Y:=0;
X:=1;
WHILE X<10 DO
BEGIN
Y=Y+1;
X=X+1;
END;
WRITE(Y);
END.
будет равно…
Значение переменной Y после выполнения программы
BASIC
Y=0
X=1
WHILE X<5
Y=Y+1
X=X+1
WEND
PRINT Y
PASCAL
VAR
Y,X:INTEGER;
BEGIN
Y:=0;
X:=1;
WHILE X<5 DO
BEGIN
Y=Y+1;
X=X+1;
END;
WRITE(Y);
END.
будет равно…
Значение переменной Y после выполнения программы
BASIC
Y=1
X=1
WHILE X<5
Y=Y+1
X=X+1
WEND
PRINT Y
PASCAL
VAR
Y,X:INTEGER;
BEGIN
Y:=1;
X:=1;
WHILE X<5 DO
BEGIN
Y=Y+1;
X=X+1;
END;
WRITE(Y);
END.
будет равно…
Значение переменной Y после выполнения программы
BASIC
Y=0
X=0
WHILE X<5
Y=Y+1
X=X+1
WEND
PRINT Y
PASCAL
VAR
Y,X:INTEGER;
BEGIN
Y:=0;
X:=0;
WHILE X<5 DO
BEGIN
Y=Y+1;
X=X+1;
END;
WRITE(Y);
END.
будет равно…
Значение переменной Y после выполнения программы
BASIC
Y=0
X=1
WHILE X<=5
Y=Y+2
X=X+1
WEND
PRINT Y
PASCAL
VAR
Y,X:INTEGER;
BEGIN
Y:=0;
X:=1;
WHILE X<=5 DO
BEGIN
Y=Y+2;
X=X+1;
END;
WRITE(Y);
END.
будет равно…