Определите значение S на десятом шаге:

VAR X,S:INTEGER;
BEGIN
X:=2; S:=0;
WHILE X<=50 DO BEGIN
IF (X MOD 3)=0 AND (X MOD 2)=0 THEN S:=S+1;
X:=X+2;
END;
WRITE(S); END.

Question

Информатика: Определите значение S на десятом шаге: VAR X,S:INTEGER; BEGIN X:=2; S:=0; WHILE X =50 DO BEGIN IF (X MOD 3)=0 AND (X MOD 2)=0 THEN S:=S+1; X:=X+2; END; WRITE(S); END.

qwerty5543 · Answer

Шаг 10 = s = 3Шаг 50 = s = 17Объяснение:...

Определите значение S на десятом шаге: VAR X,S:INTEGER; BEGIN X:=2; S:=0; WHILE X<=50 DO BEGIN IF (X MOD 3)=0 AND (X MOD 2)=0 THEN S:=S+1; X:=X+2; END; WRITE(S); END.

Определите значение S на десятом шаге:

VAR X,S:INTEGER;
BEGIN
X:=2; S:=0;
WHILE X<=50 DO BEGIN
IF (X MOD 3)=0 AND (X MOD 2)=0 THEN S:=S+1;
X:=X+2;
END;
WRITE(S); END.