azarenkov409
05.07.2022 00:52

Напишите программу, которая в последовательности натуральных чисел определяет количество четных чисел, некратных 6 (, < >).. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не превышают 300. Избранные числа всегда есть. Программа должна вывести одно число.

2. Напишите программу, которая в последовательности натуральных чисел определяет сумму 3-хзначных чисел, оканчивающихся на 7 и среднее значение суммы таких чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести два числа. Если избранных чисел нет, то программа должна вывести «нет».

язык программирования PascalABC.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
nog2018
04.09.2021 22:29
Program SandP; //Название программы var //Описание переменных x,y: real; // Стороны прямоугольника S: real; // Площадь прямоугольника P: real; // Периметр прямоугольника procedure RectSP(a,b: real; var S,P:real); //Процедура begin S := a * b; //Нахождение площади P := a + b; //Нахождение суммы end; begin //Начало основной части программы writeln('Введите стороны прямоугольника: '); //Диалог с пользователем readln(x,y); //Считывание сторон RectSP(x,y,S,P); //Вызов процедуры writeln('Площадь равна ',S); //Вывод площади writeln('Периметр равен ',P); //Вывод периметра end. //Конец программы
0,0(0 оценок)
Ответ:
UlanM
29.07.2022 17:40
1)   F=¬A+B*C+B

A B C  ¬A  B*C   F
0 0 0     1    0       1
0 0 1      1   0       1
0 1 0      1     0      1
0 1 1      1     1      1
1 0 0      0     0      0
1 0 1     0     0      0
1 1 0     0     0       1
1 1 1     0     1       1

2)   F = A+B*C
A B C    B*C     F
0 0 0      0        0
0 0 1      0        0
0 1 0      0        0
0 1 1      1        1
1 0 0      0         1
1 0 1      0         1
1 1 0      0         1
1 1 1      1          1

3)  F = A*¬B*C
A B C   ¬B   F
0  0 0     1    0
0 0 1      1     0
0 1 0       0    0
0 1 1       0     0
1 0 0        1    0
1 0 1        1    1
1 1 0        0     0
1 1 1       0       0
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота