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

Определить и описать действие алгоритма​


Определить и описать действие алгоритма​

👇
Ответ:

Объяснение:

Алгоритм ищет минимум из трёх чисел.

На вход подаются три числа, изначально переменной min присваивается значение числа a. Далее идёт сравнение минимума с числом b. Если b меньше min, то min присваивается значение b. Если b >= min, то алгоритм переходит к сравнению min и числа c. В конце выводится окончательное значение переменной min.

Ниже приведён код программы на Pascal:

var a, b, c, min:Integer;

begin

readln(a);

readln(b);

readln(c);

min:=a;

if b < min then

min:=b;

if c < min then

min:=c;

writeln(min);

end.

4,4(12 оценок)
Открыть все ответы
Ответ:
sachaice
sachaice
23.03.2023

a - уровень продаж, а затем ЗП первого менеджера
b - второго менеджера
c - третьего
Уровень продаж у всех разный.
Язык программирования: Паскаль

var
a, b, c: integer;
begin
readln (a);
if a < 500 then
a := 0.03 * a + 200;
if (a > 500) and (a < 1000) then
a := 0.05 * a + 200;
if a > 1000 then
a := 0.08 * a + 200;
readln (b);
if b < 500 then
b := 0.03 * b + 200;
if (b > 500) and (b < 1000) then
b := 0.05 * b + 200;
if b > 1000 then
b := 0.08 * b + 200;
readln (c); 
if c < 500 then
c := 0.03 * c + 200;
if (c > 500) and (c < 1000) then
c := 0.05 * c + 200;
if c > 1000 then
c := 0.08 * c + 200; 
if (a > b) and (a > c) then
a := a +200;
else
if b > c then
b := b + 200;
else
c := c + 200;
wreteln ('ЗП первого менеджера: ', a, '$');
wreteln ('ЗП второго менеджера:  ', b, '$'); 
wreteln ('ЗП третьего менеджера:  ', c, '$')
end.

4,4(68 оценок)
Ответ:
latypova04
latypova04
23.03.2023

Пишу задание вторым номером, поэтому постараюсь на качество.

Нам нужно найти сначала сумму всего роста, потом поделить его на общее количество учеников. Потом сопоставить каждый элемент со средним числом и высчитать количество высоких учеников.

Будет это выглядить так:

 

uses crt; //Если используете паскаль ABC, это строка нужна для удобства

Var a: array [1..25] of real; i,otvet: integer; h,s:real;

//Объявляем переменные. Массив,среднее число и суммарный рост - любые числа. Сам ответ - целые числа

Begin

  For i:=1 to 25 do begin
                      Writeln('Введите рост ученика номер  ',i); readln(a[i]); 

                           //Здесь мы вводим рост с клавиатуры
                    end;
  For i:=1 to 25 do
   s:=s+a[i];  

    //находим суммарный рост всех учеников
   h:=s/25;
   // делим на их количество. Теперь переменная h - это средний рост
 For i:=1 to 25 do
  if a[i]>h then otvet:=otvet+1;
  // А здесь проверяем каждый элемет массива. Если он выше значения среднего роста, мы прибавляем единицу к переменной "otvet". Там мы считаем количество высоких уч.
  Writeln('Средний рост в классе равен ',h);
 Writeln('Количество высоких учеников в классе равно  ',otvet);

//вывод данных
end.

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