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

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

Question

Информатика

Фервуфа

11 октября, 10:18

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

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

+2

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