• Pascal.ABC
    Воспользоваться repeate - until. Сделать дек трекер:
    создашь колоду s:array[1..100] of string;
    Каждый проход цикла пользователь вводит название - запоминать название карты в новую ячейку массива.
    Заканчивается цикл, когда пользователь вводит слово 'END'.
    В конце через цикл for i:= 1 to _tvoi_schetchick_ вывести все карты.

Ответы 4

  • спасибо
  • не за что :3
  • чел ты моешь получить балы просто так я создал 2 задачи одинаковыеXD
  • var s: array[1..100] of string;

       i, _tvoi_schetchick_: integer;

       a: string;

    begin

       _tvoi_schetchick_:= 0;

       readln(a);

       if a <> 'END' then

       repeat

           if a <> 'END' then begin

               inc(_tvoi_schetchick_);

               s[_tvoi_schetchick_]:= a;

               readln(a);

           end;

       until a = 'END';

       for i:= 1 to _tvoi_schetchick_ do writeln(s[i]);

    end.

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

Войти через Google

или

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

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

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