Регистрация
adilyabaxtigar
20.07.2022 11:20
Информатика
Есть ответ 👍

Посмотрите на фрагменты программы​

129
353
Посмотреть ответы 1

Ответы на вопрос:

leravseznayka
leravseznayka
4,6(97 оценок)
//pascal abc.net v3.1 сборка 1219 var   a,b: integer;   procedure forforfunclang(a,b: integer);   begin   if a=b then writeln(b);   if a> b then     begin     writeln(a);     a: =a-1;     forforfunclang(a,b);     end;   if a< b then     begin     writeln(a);     a: =a+1;     forforfunclang(a,b);     end; end; begin   read(a,b);   forforfunclang(a,b); end. пример ввода: 6 2 пример вывода: 6 5 4 3 2

Популярно: Информатика