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

Хто дивиться тік ток ? ( ів ЩАСЛИВЧИКУ)​

Показать ответ
Ответ:
Максим111136322
Максим111136322
19.06.2021 13:05
Const
  nn=100; { максимальное значение n }
var
  i,n,k,s:integer;
  a:array[1..nn] of integer;
begin
  Write('Укажите натуральное число n: '); Read(n);
  Randomize;
  k:=0; s:=0;
  Writeln('Сформированная последовательность');
  for i:=1 to n do begin
    a[i]:=Random(99)+1; { случайное число на интервале [1;99] }
    Write(a[i]:3);
    if (a[i] mod 5=0) and (a[i] mod 7 <>0) then
      begin Inc(k); s:=s+a[i] end;
  end;
  Writeln;
  Writeln('Количество чисел, кратных пяти: ',k);
  Writeln('их сумма равна ',s)
end.

Тестовое решение:
Укажите натуральное число n: 39
Сформированная последовательность
 15 83 69 64 56 50 13 70 55 40 22 82 45 67 31 36 16 52 67 44 63 23 52 62 89 33 40 32 17 14 98 15  5 58 46 68 57 72 90
Количество чисел, кратных пяти: 9
их сумма равна 355
0,0(0 оценок)
Ответ:
pirozhkovanastya
pirozhkovanastya
11.03.2020 19:42
PascalABC.Net
const
  n=25; { число учащихся }
type
  inform=record
    fio:string;
    kols:integer
  end;
var
  minf:array[1..n] of inform;
  i,j,t:integer;
  vs,v:real;
  ts:string;
begin
  { ввод исходных и накопление суммы для среднего }
  Writeln('Введите исходные данные');
  t:=0;
  for i:=1 to n do
    With minf[i] do begin
      Write(i:2,') Фамилия И.О. '); Readln(fio);
      Write(i:2,') количество знаков '); Readln(kols);
      t:=t+kols
    end;
  vs:=t/n/10;
  { сортировка по убыванию kols }
  for i := 1 to n-1 do
    for j := 1 to n-i do
      if minf[j].kols < minf[j+1].kols then
      begin
        t := minf[j].kols; minf[j].kols:=minf[j+1].kols; minf[j+1].kols:=t;
        ts := minf[j].fio; minf[j].fio:=minf[j+1].fio; minf[j+1].fio:=ts
      end;
   { результаты }
  Writeln('Самый результативный: ',minf[1].fio,' (',minf[1].kols/10:0:1,
      ' симв/мин)');
  Writeln('Средняя скорость ввода составила ',vs:0:2,' симв/мин');
  Writeln('Скорость ввода ниже средней имеют: ');
  for i:=2 to n do begin
    v:=minf[i].kols/10;
    if v<vs then Writeln(minf[i].fio, v:0:1,' симв/мин)')
  end
end.
 
Тестовое решение для 5 человек (было указано n=5):
Введите исходные данные
 1) Фамилия И.О. Иванов И.И.
 1) количество знаков 360
 2) Фамилия И.О. Петров П.П.
 2) количество знаков 410
 3) Фамилия И.О. Сидоров С.С.
 3) количество знаков 270
 4) Фамилия И.О. Козлов К.К.
 4) количество знаков 390
 5) Фамилия И.О. Поляков П.П.
 5) количество знаков 385
Самый результативный: Петров П.П. (41.0 симв/мин)
Средняя скорость ввода составила 36.30 симв/мин
Скорость ввода ниже средней имеют:
Иванов И.И.36.0 симв/мин)
Сидоров С.С.27.0 симв/мин)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота