Question

Написать программу, которая получает два целых числа A и B (0 < A < B) и выводит все натуральные числа в интервале от A до B.

Answer 1

Ответ:

• begin
• var (a,b) := ReadInteger2;
• (a..b).Print
• end.

или

• var a,b:integer;
• begin
• read(a,b);
• for var i:= a to b do print(i)
• end.

Пример работы: