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

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

Question

Информатика

Аленя

7 марта, 02:58

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

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

+4

Ответы (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