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

Подскажите, , что означает "неповторящие строки таблицы истинности"?

Показать ответ
Ответ:
лика20042
лика20042
28.12.2020 14:19

три раза используется вычисление факториала - n!, m! и (m - n)!. REM Начало подпрограммы факториал. В приведенной блок-схеме результаты. Составить и зафиксировать в форме блок-схемы алгоритм вычисления факториала числа. 1. Попроси больше объяснений; Следить. Блок-схема алгоритма вычисление факториала. Дано целое число X и натуральное N. Составьте алгоритм вычисления XN. Проверьте алгоритм. Посчитать сумму N! (N - факториал). Блок-схема. do factorial:=factorial*i; Writeln('Факториал N чисел равен = ',factorial:0:2); Readln; End.. Вычисление суммы цифр заданного числа · Массивы в Pascal · Матрицы в. Стандартная блок-схема линейного алгоритма приводится на рис.. значения счетчика в теле цикла (К = К + 1 в алгоритме вычисления факториала).

0,0(0 оценок)
Ответ:
Champion30
Champion30
03.04.2020 04:00
Const
  nn=100;
type
  Abit=record
    fio:string;
    ball:array[1..3] of byte;
    from:string;
    midb:real
  end;
var
  t:Abit;
  mAb:array[1..nn] of Abit;
  i,j,n,m:integer;
  midinst:real;
begin
  { ввод исходных данных }
  Write('Количество абитуриентов (до 100): '); Readln(n);
  Write('Средний по институту: '); Readln(midinst);
  m:=0;
  for i:=1 to n do
  begin
    Writeln('Абитуриент № ',i);
    With mAb[i] do begin
      Write('Фамилия, И.О.: '); Readln(fio);
      Write(' по трем предметам через пробел: ');
      Readln(ball[1],ball[2],ball[3]);
      midb:=(ball[1]+ball[2]+ball[3])/3;
      Write('Место жительства: '); Readln(from)
      end;
    if mAb[i].midb>midinst then m:=m+1;
  end;
  { простейшая обменная сортировка по убыванию }
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if mAb[i].midb<mAb[j].midb then begin
        t:=mAb[i];
        mAb[i]:=mAb[j];
        mAb[j]:=t
      end;
  { вывод }
  Writeln;
  Writeln('Количество поступающих со средним выше среднеинститутского: ',m);
  for i:=1 to n do
    with mAb[i] do
       Writeln(fio,' ',ball[1]:2,ball[2]:2,ball[3]:2,' ',from)
end.

Тестовое решение:
Количество абитуриентов (до 100): 4
Средний по институту: 5.94
Абитуриент № 1
Фамилия, И.О.: Иванов А.Г.
по трем предметам через пробел: 9 7 5
Место жительства: Вологда
Абитуриент № 2
Фамилия, И.О.: Петров Л.Л.
по трем предметам через пробел: 9 9 9
Место жительства: Грязевец
Абитуриент № 3
Фамилия, И.О.: Раковский Д.Г.
по трем предметам через пробел: 4 4 5
Место жительства: Сокол
Абитуриент № 4
Фамилия, И.О.: Акимова Я.С.
по трем предметам через пробел: 9 5 4
Место жительства: Харовск

Количество поступающих со средним выше среднеинститутского: 3
Петров Л.Л.  9 9 9 Грязевец
Иванов А.Г.  9 7 5 Вологда
Акимова Я.С.  9 5 4 Харовск
Раковский Д.Г.  4 4 5 Сокол
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота