Var a, b: integer; begin write('Введите a, b>>'); read(a, b); if a<b then begin while (b-1>a) do begin b:=b-1; write (b, ' '); end; end else write('Неверные условия') end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
