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.

Answer 1

Ответ:

Шаг 10 => s = 3

Шаг 50 => s = 17

Объяснение: