Var
n, s, i: integer;
x: array[1..100]of integer;
begin
writeln('ВВедите кол-во купюр, их значения и необходимую сумму');
readln(n);
for i := 1 to n do
read(x[i]);
readln(s);
for i := n downto 1 do
begin
if s div x[i] > 0 then
write(s div x[i], '*', x[i], ' ');
s := s mod x[i];
end;
if s <> 0 then
writeln('NO')
end.
Для этого используй тип string,то есть строка
program znanija;
var n:string;
k:string;
s:string;
begin
write('Введите название фильма : ');
readln(n);
writeln('Введите название кинотеатра : ');
readln(k);
writeln('Введите время : ');
readln(s);
writeln('Билет на ', n , ' в ', k , ' на ', s , ' забронирован. ');
end.
Введите название фильма : Лига Справедливости
Введите название кинотеатра : Луксор
Введите время : 21:40
Билет на Лига Справедливости в Луксор на 21:40 забронирован.
Решение вот: но обьяснить не смогу, т.к. нужна зрительная логика и нужно рисовать на листке, как сделал я
Г Л Д А Б М К В
проверь на каждое из условий, всё подходит
<span>Д – между Б и Г не означает что идет БДГ, может быть Б???Д?Г</span>