Вывести числа от A до B, a и b вводят пользователи Блок схему и программу на Паскале
Program z1; var a, b, i: integer; begin writeln('Введите A:'); readln(a); writeln('Введите B:'); readln(B); i := 0; for i := A to B do begin Writeln(i); end; end.
Программа Ваша написана через... (сами поняли)
Program chisla; var A,B: LongInt; i: ShortInt; begin write('Введите 2 целых числа >>'); readln(A,B); for i:= A to B do write(i, ', '); end. //Программа выведет подрят через запятую все числа от A до B.