Составить задачу по информатике в паскаль abc с командой "while"

1. Вывести все числа от a до b, но заранее не известно, а больше b или a меньше б

Question

Информатика

Феликс

16 февраля, 17:08

Составить задачу по информатике в паскаль abc с командой "while"

1. Вывести все числа от a до b, но заранее не известно, а больше b или a меньше б

+3

Ответы (2)

Знаете ответ?

Поликсения · Answer 1

1.

var a, b, h:integer;

begin

readln (a, b) ;

if a
while ab do

begin

write (a,' ') ;

a:=a+h;

end;

writeln (a) ;

end.

Пример:

7 12

7 8 9 10 11 12

2.

var a, b:integer;

begin

readln (a, b) ;

if a
while a<=b do

begin

write (a,' ') ;

a:=a+1;

end

else

while a>=b do

begin

write (a,' ') ;

a:=a-1;

end;

end.

Пример:

12 7

12 11 10 9 8 7

Артя · Answer 2

Var

a, b: integer;

begin

readln (a, b) ;

if (a > b) then swap (a, b) ;

while (b - a > = 0) do

begin

Write (a, ' ') ;

inc (a) ;

end;

end.

Составить задачу по информатике в паскаль abc с командой "while"1. Вывести все числа от a до b, но заранее не известно, а больше b или a меньше б

Составить задачу по информатике в паскаль abc с командой "while"

1. Вывести все числа от a до b, но заранее не известно, а больше b или a меньше б