М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
BvbNo9
BvbNo9
23.09.2020 20:49 •  Информатика

Используя оператор цикла while, напишите программу, которая находит сумму всех кратных 3 целых чисел в ряду от 1 до n. То есть, если n = 8, то сумма = 3 + 6 =

👇
Открыть все ответы
Ответ:
RTF1111
RTF1111
23.09.2020
Выполним упрощение:
f(x_1,x_2,x_3,x_4)=(x_2+x_4)\bar{x_3}\bar{x_1}\bar{x_4}+\bar{x_2}x_3+x_1x_4= \\ \bar{x_1}x_2\bar{x_3}\bar{x_4}+\bar{x_2}x_3+x_1x_4
Мы получили три конъюнкции, соединенные дизъюнкциями. Функция будет истинной при условии истинности хотя бы одной из дизъюнкций. Выписываем соответствующие комбинации (звездочки означаю, что допускается любое значение бита).
х1 х2 х3 х4
0   1   0   0
*    0   1   *
1    *    *  1
Заменяем строки со звездочками на набор строк со всем допустимыми комбинациями битов на месте звездочек.
х1 х2 х3 х4
0   1   0   0
0   0   1   0
0   0   1   1
1   0   1   0
1   0   1   1
1   0   0   1
1   0   1   1 - дубликат
1   1   0   1
1   1   1   1
И удаляем строки-дубликаты:
х1 х2 х3 х4
0   1   0   0
0   0   1   0
0   0   1   1
1   0   1   0
1   0   1   1
1   0   0   1
1   1   0   1
1   1   1   1
4,5(92 оценок)
Ответ:
samira2314
samira2314
23.09.2020
Var
  c:array [1..10] of integer;
  i, even, positive, sumLessSix: integer;
begin
  randomize;
  writeln ('Рандомный массив');
  for i:=1 to 10 do begin
    c[i]:= random(20)-10;
    write (c[i],' ');
  end; {for}
  writeln;
  writeln('Произведение четных чисел');
  even:=1;
  for i:=1 to 10 do
    if c[i] mod 2 = 0  then
    even:= even*c[i];
  write(even,' ');
  writeln;
  writeln('Произведение положительных чисел');
  positive:=1;
  for i:=1 to 10 do
    if c[i] > 0 then
    positive:= positive*c[i];
  write(positive,' ');
    writeln;
  writeln('Сумма элементов меньших 6');
  positive:=1;
  for i:=1 to 10 do
    if c[i] < 6 then
    sumLessSix:= sumLessSix+c[i];
  write(sumLessSix,' ');
end.
4,4(51 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ