Определите значение 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.

Ayla2a011    3   27.04.2020 03:22    1