Pascal.ABC
Воспользоваться repeate - until. Сделать дек трекер:
создашь колоду s:array[1..100] of string;
Каждый проход цикла пользователь вводит название - запоминать название карты в новую ячейку массива.
Заканчивается цикл, когда пользователь вводит слово 'END'.
В конце через цикл for i:= 1 to _tvoi_schetchick_ вывести все карты.
Воспользоваться repeate - until. Сделать дек трекер:
создашь колоду s:array[1..100] of string;
Каждый проход цикла пользователь вводит название - запоминать название карты в новую ячейку массива.
Заканчивается цикл, когда пользователь вводит слово 'END'.
В конце через цикл for i:= 1 to _tvoi_schetchick_ вывести все карты.
More Questions From This User See All
Answers & Comments
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.