Задача 1 Урок 12.1 Repeat/Until
Primary tabs
{12-1.1 Выведите на экран, все числа от 55 до 9236.}
var a,b:integer; begin a:= 55; b:= 9236; repeat write(a, ' '); a := a+1; until (a>b); readln(); end.
- Log in to post comments
- 998 reads
{12-1.1 Выведите на экран, все числа от 55 до 9236.}
var a,b:integer; begin a:= 55; b:= 9236; repeat write(a, ' '); a := a+1; until (a>b); readln(); end.