Question

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

Answer 1

1)

var sum, num: real;

begin

   readln(num);

   sum:= 0;

  if num <> 0 then

   repeat

       sum:= sum + num;

       readln(num);

   until num = 0;

   writeln(sum);

end.

2)

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.