Sanalol
5 год назад
Составитьзадачу по информатике в паскаль abc с командой "while"1.Вывести все числа от a до b, но заранее не известно, а больше b или a меньше б
ОТВЕТЫ
Bonka
Oct 24, 2020
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.
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.
874
Смежные вопросы:
