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.

Answer 2

Вы можете добавить условие, которое будет проверять, является ли число как четным, так и кратным трём, и увеличивать счетчик KT в этом случае. Вот исправленный код:

pascalCopy code
PROGRAM JJJ;
VAR
  I, N, C, KT: Integer; (* Объявляем все переменные *)

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;

    IF (I MOD 2 = 0) AND (I MOD 3 = 0) THEN (* Проверяем, что число и четное, и кратное трём *)
      KT := KT + 1;
  END;

  WRITE('ВСЕГО ', N:2, ' ЧЕТНЫЕ ', C:2, ' КРАТНЫЕ ТРЁМ ', KT:2);
END.

Теперь программа учитывает числа, которые одновременно четные и кратные трём, и увеличивает счетчик KT в соответствии с этим условием.