Pascal.ABCВоспользоваться repeate - until. Сделать дек трекер:создашь колоду
Pascal.ABC
Воспользоваться repeate - until. Сделать дек трекер:
создашь колоду s:array[1..100] of string;
Каждый проход цикла юзер вводит название - запоминать заглавие карты в новейшую ячейку массива.
Кончается цикл, когда юзер вводит слово 'END'.
В конце через цикл for i:= 1 to _tvoi_schetchick_ вывести все карты.
var s: array[1..100] of string;
i, _tvoi_schetchick_: integer;
a: string;
begin
_tvoi_schetchick_:= 0;
readln(a);
if a lt;gt; 'END' then
repeat
if a lt;gt; '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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.