PASCAL_ПОЖАЛУЙСТА Добавьте в эту программу(ИМЕННО В ЭТУ ПРОГРАММУ) УСЛОВИЕ, ПРИ КОТОРОМ...

Question

PASCAL_ПОЖАЛУЙСТА Добавьте в эту программу(ИМЕННО В ЭТУ ПРОГРАММУ) УСЛОВИЕ, ПРИ КОТОРОМ ОН ЕЩЕ БУДЕТ СЧИТАТЬ "СУММУ" ЧИСЕЛ И ЧЕТНЫХ, И КРАТНЫХ ТРЕМ(ТО ЕСТЬ ЧИСЛА И ЧЕТНЫЕ, И КРАТНЫЕ, ТАКИЕ КАК 6,12,18 И ТД.) просто добавить в эту программу:
PROGRAM JJJ;
VAR I,N,C,KT
BEGIN
N:=0;
C:=0;
KT:=0;
FOR I:=50 TO 100 DO
BEGIN WRITE (I:3);
N:=N+1
IF I MOD 2=0 THEN C:=C+1;
IF I MOD 3=0 THEN KT:=KT+1;
END;
WRITE ('ВСЕГО ', N:2, 'ЧЕТНЫЕ ', С:2, 'КРАТНЫЕ ТРЁМ ',KT:2);
END.

Answer 1

VAR I,N,C,KT,SUM:INTEGER;BEGINN:=0;C:=0;KT:=0;FOR I:=50 TO 100 DOBEGIN WRITE (I:3);N:=N+1;IF I MOD 2=0 THEN C:=C+1;IF I MOD 3=0 THEN KT:=KT+1;IF (I MOD 2=0) AND (I MOD 3=0)THEN SUM:=SUM+I;END;WRITELN;WRITELN ('ВСЕГО ', N:2, 'ЧЕТНЫЕ ', C:2, 'КРАТНЫЕ ТРЁМ ',KT:2);WRITELN ('СУММУ ЧИСЕЛ ЧЕТНЫХ И КРАТНЫХ ТРЕМ ', SUM:4);END.