• 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.

Ответы 0

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years