В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
shtondin2017
shtondin2017
17.09.2022 05:16 •  Информатика

Какой блок не соответствует решению задачи: повернуть оба мотора на 0,5 оборота ​


Какой блок не соответствует решению задачи: повернуть оба мотора на 0,5 оборота ​

Показать ответ
Ответ:
Bauer322
Bauer322
17.02.2022 23:54
Var a,b,sek_m,sek_l:integer;
begin
writeln('на каком этаже живёт Миша?');
readln(a);
writeln('на каком этаже находится лифт?');
readln(b);
writeln('за сколько секунд Миша поднимается на этаж?');
readln(sek_m);
writeln('за сколько секунд лифт поднимается на этаж?');
readln(sek_l);
sek_m:=sek_m*a-sek_m;
writeln('Миша поднимется на нужный этаж за ',sek_m,' сек.');
sek_l:=(sek_l*b+sek_l*a)-sek_l;
writeln('лифт поднимется на нужный этаж за ',sek_l,' сек.');
if (sek_m=sek_l) then writeln('Миша будет подниматься одинаковое количество времени')
else if (sek_l>sek_m) then writeln('Мише быстрее подняться самому')
else writeln('Мише быстрее подняться на лифте');
end.
0,0(0 оценок)
Ответ:
соня1581
соня1581
01.11.2021 06:08
// PascalABC.NET 3.0, сборка 1128
procedure AllMake(p:array of integer; var avg:real);
begin
  avg:=p.Average;
  for var i:=0 to p.Length-1 do
    if p[i]<avg then p[i]*=10
end;

begin
  var n:=ReadInteger('Количество элементов в массиве:');
  var a:=ArrRandom(n,1,50);
  Writeln('Исходный массив'); a.Println;
  var av:real;
  AllMake(a,av);
  Writeln('Среднее арифметическое равно ',av);
  Writeln('Результирующий массив'); a.Println;
  WriteAllText('out.txt',a.JoinIntoString)
end.

Тестовое решение:
Количество элементов в массиве: 15
Исходный массив
34 50 49 50 17 21 13 25 11 43 47 45 30 11 1
Среднее арифметическое равно 29.8
Результирующий массив
34 50 49 50 170 210 130 250 110 43 47 45 30 110 10

Файл out.txt дан во вложении.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота