А) Необходимо
б) Достаточно
в) Необходимо и достаточно
г) Достаточно
д) Необходимо
е) Достаточно
Переменные A и B
Всё остальное - это просто сообщения, так что за переменные их не считаем
Код прикреплен файлом (в расширении .txt, знания не поддерживают расширение .c) и картинкой.
Пример работы программы прикреплен картинкой.
Пример как скомпилировать программу из консоли тоже прикреплен картинкой.
Спасибо за отметку "лучший ответ"
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.