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

Составить программу вычисления суммы произведения и среднее арифметическое трех чисел. , надо.

👇
Ответ:
MilаKlimenkova
MilаKlimenkova
27.04.2020
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadReal3('Введите три числа:');
  Writeln('S=',a+b+c,', П=',a*b*c,', среднее ',(a+b+c)/3)
end.

Пример
Введите три числа: 23.6 25.9 21.4
S=70.9, П=13080.536, среднее 23.6333333333333
4,8(89 оценок)
Открыть все ответы
Ответ:
Masterpro123
Masterpro123
27.04.2020

Командный пользовательский интерфейс требует более высокой абстракции, профессионализма и подготовки. Графический интерфейс более дружественный к оператору, большую часть работы позволяет перенести на плечи компьютера. Как правило, основные ошибки допускает оператор, а не компьютер. Вероятность ошибки возрастает по экспоненте с ростом количества манипуляций оператора. Как правило, если оператор вынужден вводить с клавиатуры в два раза больше команд, то вероятность ошибки возрастает не в 2 раза, а в 10 раз. Поэтому, как заметил еще Стив Джобс, будущее за графическим интерфейсом, который открыл новую эру в Макинтош. В современном мире эволюция интерфейса не остановилась. Все больше роль в общении с компьютером берет на себя электроника. Компьютер научился определять настроение оператора по улыбке, фотография автоматически фокусируется, на нужном участке, вводятся голосовые команды, команды по сигналам нейронов, температурные инфракрасные датчики... С 13 мая 1997 года, когда компьютер победил Г.Каспарова – чемпиона по шахматам среди людей, человечество незаметно для себя шагнуло в новую эпоху, которая по праву называется информационной. Будущее в лидерстве и прогрессе эволюции уже не определяется однозначно и не принадлежит только человеку, а переходит к своеобразному кентавру человеко-машинному комплексу. Рутинные, громоздкие операции ложатся на плечи автоматики, а ответственность и планирование берет на себя человек.

Объяснение:я его сьела

4,6(47 оценок)
Ответ:
Hamrod
Hamrod
27.04.2020
1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.

 
4,4(66 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ