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

Вводится два любых числа а и b. Вычислить произведение чисел кратных 5,от меньшего из введенных чисел,до большего. Если числа a и b одинаковы или в данном диапазоне таких чисел нет, то в ответе написать «нет»

Решить в Паскале

👇
Ответ:
tiser
tiser
23.11.2022
begin var (a,b) := ReadInteger2; var r := (a..b).Where(x -> x mod 5 = 0); if (a=b) or (r.Count = 0) then Print('нет')  else Print(r.Product) end.

Пример работы:


Вводится два любых числа а и b. Вычислить произведение чисел кратных 5,от меньшего из введенных чисе
Вводится два любых числа а и b. Вычислить произведение чисел кратных 5,от меньшего из введенных чисе
4,4(77 оценок)
Открыть все ответы
Ответ:
Высказывание А:
"За любой партой сидит ученик, решивший контрольную работу наполовину".
Высказывание В:
"Не менее половины класса решило контрольную работу полностью".
Логическая функция F, определяющая понятие "Легкая контрольная работа", может быть записана в виде A \land B
Высказывание, что работа не является легкой, есть инверсия функции F.
\bar F=\overline{A \land B}=\bar A \lor \bar B
Сформулируем инверсию высказывания А:
"Хотя бы за одной партой сидит ученик, не решивший контрольную работу наполовину".
Сформулируем инверсию высказывания В:
"Менее половины класса решило контрольную работу полностью".
Тогда инверсия F может быть записана в следующем виде:
Хотя бы за одной партой сидит ученик, не решивший контрольную работу наполовину ИЛИ менее половины класса решило контрольную работу полностью.
4,8(90 оценок)
Ответ:
Const
  n=7;
type
  V=array[1..n] of real;
procedure mReplace(t:real;var a:V;var k:integer);
var
  i:integer;
begin
  k:=0;
  for i:=1 to n do
    if a[i]<t then begin a[i]:=t; Inc(k) end
end;

var
  T:real;
  i,k1,k2:integer;
  P,C:V;
begin
  Write('Введите значение T: '); Read(T);
  Writeln('Введите элементы массива P');
  for i:=1 to n do Read(P[i]);
  Writeln('Введите элементы массива C');
  for i:=1 to n do Read(C[i]);
  mReplace(T,P,k1); mReplace(T,C,k2);
  if k1>k2 then
  begin
    Writeln('Измененнный массив Р'); for i:=1 to n do Write(P[i],' ')
  end
  else
    if k2>k1 then
  begin
    Writeln('Измененнный массив C'); for i:=1 to n do Write(C[i],' ')
  end
  else Writeln('Число замен в массивах равно ',k1)
end.

Тестовое решение:
Введите значение T: 0.005
Введите элементы массива P
0.001 1.54 -2.75 0.002 -0.1 1.2 -0.47
Введите элементы массива C
-5.74 0.0001 4.1 7.24 -1.5 2.9 0.004
Измененнный массив Р
0.005 1.54 0.005 0.005 0.005 1.2 0.005
4,7(6 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ