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

Назовём красивыми числа, в записи которых есть минимум две одинаковые цифры (например: 44, 505, 1101, 2324). сумма красивых чисел, меньших 100, равна 495 (11 + 22 + 33 + 44 + 55 + 66 + 77 + 88 + 99 = 495). найдите сумму красивых натуральных чисел, меньших 10000.

👇
Ответ:
dfhhu
dfhhu
17.12.2022
Var a,c,s:integer;
m:set of 0..9;
b:boolean;
begin
s:=0;
for a:=10 to 9999 do
 begin
 m:=[];
 c:=a;
 b:=false;
 while c<>0 do
  begin
  if (c mod 10) in m then b:=true;
  m:=m+[c mod 10];
  c:=c div 10;
  end;
 if b then s:=s+a;
 end;
writeln('s = ',s);
end. 

Результат:
s = 24717105
4,6(43 оценок)
Открыть все ответы
Ответ:

A - Неверно. Сканер - устройство ввода.

B - Верно. Клавиатура - устройство ввода.

C - Верно. Монитор - устройство вывода.

D - Неверно. Микрофон - устройство ввода.

Получаем логические переменные: A = 0, B = 1, C = 1, D = 0.

Подставим их в предложенные уравнения и посмотрим на результат (он должен быть равен истине):

d⇔c⇒¬a∨b∧d = 0⇔1⇒¬0∨1∧0 = 0⇔1⇒1 = 0⇔1 = 0 - нам не подходит

b⇒(a∧¬d)∨(c⇔¬a) = 1⇒(0∧¬0)∨(1⇔¬0) = 1⇒(0∧1)∨(1⇔1) = 1⇒0∨1 = 1⇒1 = 1 - подходит

¬(a∧d)∨(¬b⇔c⇒d) = ¬(0∧0)∨(¬1⇔1⇒0) = ¬0∨(¬1⇔0) = 1∨(0⇔0) = 1∨1 = 1 -  подходит

¬a∨b⇒c⇔¬d∧¬b = ¬0∨1⇒1⇔¬0∧¬1 = 1∨1⇒1⇔1∧0 = 1⇒1⇔0 = 1⇒1⇔0 = 1⇔0 = 0 - не подходит

На скриншоте вами выбраны верные пункты

4,7(31 оценок)
Ответ:
Profesor2Max
Profesor2Max
17.12.2022
// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
function Avg(a:array[,] of integer):real;
begin
  var s:=0; var k:=0;
  foreach var e:integer in a do
    if e>0 then begin s+=e; Inc(k) end;
  if k>0 then Result:=s/k else Result:=1e-100;
end;

begin
  var A:=MatrixRandom(4,4,-50,50); Writeln(A);
  Writeln('Среднее арифметическое положительных равно ',Avg(A):0:3);
  var B:=MatrixRandom(5,5,-30,30); Writeln(B);
  Writeln('Среднее арифметическое положительных равно ',Avg(B):0:3);
  var C:=MatrixRandom(4,5,-25,38); Writeln(C);
  Writeln('Среднее арифметическое положительных равно ',Avg(C):0:3);
end.

Тестовое решение:
[[35,35,5,-47],[14,34,35,-13],[25,-5,35,-29],[-7,10,-12,12]]
Среднее арифметическое положительных равно 24.000
[[-12,-17,-10,19,14],[20,17,-27,-2,16],[-3,-21,30,2,10],[5,-3,-17,-3,18],[0,-26,29,1,-22]]
Среднее арифметическое положительных равно 15.083
[[-5,-11,17,-4,15],[15,17,-24,36,15],[-8,-3,-22,28,-25],[-21,6,12,31,-1]]
Среднее арифметическое положительных равно 19.200
4,8(3 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ