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

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

👇
Ответ:
Pingvinenok01
Pingvinenok01
29.03.2020
//Pascal ABC.NET 3.1 сборка 1219

Var
 a,b,c:real;
begin
 read(a,b,c);
 if ((a>b) and (a<c)) or ((a<b) and (a>c)) then writeln(a);
 if ((b>a) and (b<c)) or ((b<a) and (b>c)) then writeln(b);
 if ((c>a) and (c<b)) or ((c<a) and (c>b)) then writeln(c);
end.

Пример ввода:
1.1
1.2
1.3
Пример вывода:
1.2
4,8(4 оценок)
Ответ:
софийка34
софийка34
29.03.2020
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
  var a,b,c:real;
  Write('Введите три числа: '); Read(a,b,c);
  Print('Среднее из чисел:');
  Seq(a,b,c).Sorted.Skip(1).Take(1).Println;
end.

Тестовое решение
Введите три числа: 5.3 2.8 10
Среднее из чисел: 5.3
4,6(18 оценок)
Открыть все ответы
Ответ:
212629
212629
29.03.2020
1.
var
  s: string;
  i, count: integer;
begin
  writeln('Vvedite stroky: ');
  readln(s);
  for i := 1 to length(s) - 2 do
    if copy(s, i, 3) = 'abc' then
      count := count + 1;
  writeln('Kol-vo: ', count);
end.
2.
var
  s1, s2: string;
  i, len1, len2: integer;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  len1 := length(s1);
  len2 := length(s2);
  if len1 > len2 then writeln('1 stroka dlinnee')
  else if len1 < len2 then writeln('2 stroka dlinnee')
  else writeln('dlini strok ravnie')
end.
3.
var
  s1, s2, s3: string;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  s3 := s1[1] + s1[2] + s2[1] + s2[2];
  writeln('Novaja stroka: ', s3);
end.
4,7(77 оценок)
Ответ:
moskalkov
moskalkov
29.03.2020

A∧B∧C∧D

Объяснение:

По условию гирлянда работает только в тот момент, когда все лампочки исправны, то есть логическое высказывание принимает значение 1 (истину).

A∨B∨C∨D  - неверно, потому что используется дизъюнкция (ИЛИ), она может быть истинной, если хотя бы одно значение будет истинным ⇒ нам это не подходит

A¯¯¯B¯¯¯  - неверно. Если я правильно понял, то Вы имели в виду отрицание (не). Отрицает принимает противоположное значение переменной, т. е., если значение было = 0, то оно будет = 1 ⇒ нам это не подходит, т. к. значение одной переменной может быть = 1, а другой переменной = 0.

A∧B∧C∧D  - верно, т.к. при конъюнкции (И) для истинности высказывания необходимо, чтобы все значения были истинными, т.е. = 1

⊲A⊲B⊲C⊲D - неверно. Если я правильно понял, то Вы имели в виду импликацию (если, то). Она выдаёт истину в том случае, если одна гирлянда работает, а другая - нет ⇒ нам это не подходит

4,6(96 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ