Задать вопрос Регистрация
Помочь другим

  • Вам даны именаA

    A

     и B

    B

    . Выведите выражение «love: A B», подставив вместо A и B введенные имена.Входные данные

    В двух строках вводятся имена: строки A

    A

     и B

    B

    длины до 10. Строки состоят исключительно из букв латинского алфавита.

    Выходные данные

    Выведите требуемое выражение.

    Пример

    входные данные

    Sasha Masha

    выходные данные

    love: Sasha Masha

Ответы 1

  • var a:array[1..100]of record

               name:string;

               point:integer;

               end;

    n,i,m,e,min,j,min1,min2:integer;

    c:char;

    begin

    min:=20;

    min1:=20;

    min2:=20;

    read(n);

    for i:=1 to n do

    begin

      repeat{считываем имена фамилии}

      read(c);

      a[i].name:=a[i].name+c;

      until c=' ';

      a[i].name:=a[i].name+' ';

      repeat

      read(c);

      a[i].name:=a[i].name+c;

      until c=' ';

      for j:=1 to 3 do  {считаем баллы}

        begin

           read(e);

           m:=m+e;

        end;

      if m < min then  {сразу находим троих минимальных}

        begin

          min2:=min1;

          min1:=min;

          min:=m;

        end

      else

      if m < min1 then

        begin

          min2:=min1;

          min1:=m;

        end

      else

      if m < min2 then

      min2:=m;

      a[i].point:=m;

      m:=0;

    end;

    for i:=1 to n do

    if a[i].point<=min2    {все те кто меньше min2 будут равны или мин1 или min}

    then write(2,a[i].name);

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years