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

Дан рост человека вывести на экран слово высокий ,если его рост превышает 180

👇
Ответ:
Vanja81728
Vanja81728
19.03.2020
Var h:real;
begin
read (h);
if (h>180) then writeln ('высокий');
end.
4,6(98 оценок)
Открыть все ответы
Ответ:
EvaCat777
EvaCat777
19.03.2020

70, 35, 43, 132, 121, 11, 60, 64, 24, 31

Объяснение:

1) Изначально s = 0, затем на каждой из 12 – 6 + 1 = 7 итераций к ней прибавляется 10, итого получится 70

2) Аналогично, s = 0 + 7 * (8 – 3) = 35

3) Итерация с i = 1: k = 2 * 4 + 1 = 9. Итерация с i = 2: k = 2 * 9 + 2 = 20. Итерация с i = 3: k = 2 * 20 + 3 = 43.

4) s = 0 + 12 * 11 = 132  

5) s = 0 + 11 * (12 – 1) = 121

6) u = 26 – 1 – 2 – 3 – 4 – 5 = 11

7) s = 4 + 5 + … + 11 = 60

8) s = 1 * 2 * 2 * … * 2 (8 – 3 + 1 раз) = 64

9) y = 0 + 4 * 1 + 4 * 2 + 4 * 3 = 24

10) s = 3 + 2 * 2 + 2 * 3 + 2 * 4 + 2 * 5 = 31

4,4(47 оценок)
Ответ:
lusikv83
lusikv83
19.03.2020
// PascalABC.NET 3.2, сборка 1336 от 14.11.2016
begin
  var a:=ArrRandomReal(ReadInteger('n='),10,30); a.Println;
  Writeln('Наименьший элемент № ',a.IndexMin+1);
  Writeln('Наибольший элемент № ',a.IndexMax+1);
  var m:=a.Average;
  var d:=a.Select((x,i)->(abs(x-m),i+1));
  Writeln('Наименее отличается от среднего значения элемент № ',
    (d.Min).Item2)
end.

Пример
n= 5
28.8975487271778 29.3922267944516 10.5457673969426 21.9476794693375 20.9330827234933
Наименьший элемент № 3
Наибольший элемент № 2
Наименее отличается от среднего значения элемент № 4
4,5(86 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ