Даны натуральные числа а и в(в> а).написать программу, выводящую на экран последовательность натураотнвх чисел от а до в не включая а и в. входные данные а=2,в=5 выходные данные 3 4
Procedure GetAB(x: integer; var a: integer; var b: integer); begin a := 0; b := 1; while x > 0 do begin a := a + 1; b := b * (x mod 100); x := x div 100; end; end;
var x, a, b: integer;
begin for x := 10000 to 2000000000 do begin GetAB(x, a, b); if (a = 3) and (b = 18) then Println(a, b, x); end; end.
begin
var a:=ReadInteger('A=');
var b:=ReadInteger('B=');
Range(a+1,b-1).Print
end.
Тестовое решение:
A= 2
B= 5
3 4