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

Дана последовательность целых положительных чисел. найти произведение только тех чисел, которые больше заданного числа м. если таких нет выдать сообщение об этом. на паскале. , и , без заумных команд, а так чтобы понятно было!

👇
Ответ:
nyrlan13531
nyrlan13531
12.09.2021

var m,x,n,p,i:integer; s:boolean;
begin
p:=1;
writeln('Vvedite kolichestvo chisel:');
read(n);
writeln('Vvedite chislo s kotorim sravnit:');
read(m);
writeln('Vvedite cifri:');
for i:=1 to n do begin
readln(x);
if m<x then begin p:=p*x; s:=true; end;
end;
if s=true then writeln('Proizvedenie - ',p) else writeln('Net takih chisel');
end.

4,7(59 оценок)
Открыть все ответы
Ответ:
lizniki82
lizniki82
12.09.2021
1. \ ((2*2=4) \land (3*3=9)) \lor (\lnot(2*2=4)\land\lnot(3*3=9))
Для удобства построения таблицы истинности введем логические переменные.
Обозначим 2*2=4 через a, 3*3=9 - через b.
Тогда высказывание примет вид:
(a \land b) \lor (\lnot a\land\lnot b)
Для этого выражения и построим таблицу истинности.

2. Для доказательства равносильности указанных выражений можно построить таблицы истинности и сравнить их.
Как видно, НЕСОВПАДЕНИЕ полное, т.е. ни при каком сочетании a и b выражения не равносильны. Это подтверждается  теорией - имеются законы де-Моргана, в которых еще присутствует общее отрицание или в правой. или в левой части.
\bar a \lor \bar b = \overline{a \land b}
Сразу, у меня с информатикой плохо! и было бы неплохо, если вы напишите на листке : d 1. записать со
Сразу, у меня с информатикой плохо! и было бы неплохо, если вы напишите на листке : d 1. записать со
4,4(84 оценок)
Ответ:
anita1234213
anita1234213
12.09.2021
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var a,n,k,i,j,s:integer;
begin
  writeln('Количество учеников и количество оценок');
  readln(n,k);
  for i:=1 to n do begin
    for j:=1 to k do begin
      write('Ученик № ',i, ' оценка № ',j,' = ');
      readln(a);
      s:=s+a;
    end;
  end;
  println('Средняя оценка группы ',s/(n*k):6:3);
end.

Тестовое решение:
Количество учеников и количество оценок
3 3
Ученик № 1 оценка № 1 = 3
Ученик № 1 оценка № 2 = 4
Ученик № 1 оценка № 3 = 4
Ученик № 2 оценка № 1 = 5
Ученик № 2 оценка № 2 = 4
Ученик № 2 оценка № 3 = 4
Ученик № 3 оценка № 1 = 4
Ученик № 3 оценка № 2 = 3
Ученик № 3 оценка № 3 = 3
Средняя оценка группы  3.778
4,8(59 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ