Pascal.ABC
Воспользоваться repeate - until. Сделать дек трекер:
создашь колоду s:array[1..100] of string;
Каждый проход цикла пользователь вводит название - запоминать название карты в новую ячейку массива.
Заканчивается цикл, когда пользователь вводит слово 'END'.
В конце через цикл for i:= 1 to _tvoi_schetchick_ вывести все карты.
Ответы
Ответ дал:
0
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.
Ответ дал:
0
спасибо
Ответ дал:
0
не за что :3
Ответ дал:
0
чел ты моешь получить балы просто так я создал 2 задачи одинаковыеXD
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад