Задача 8 Урок 13.1
Primary tabs
{13.1 — 8 Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов.
Так чтобы в консоли было:
1 2 3 4 5
1 2 3 4 5}
var a,b: integer; begin a:=0; b:=1; repeat while (a<5) do begin a:=a+1; write(a, ' '); end; if (a=5) then begin writeln(); a:=a+1; end; write(b, ' '); b:=b+1; until (b>5) ; readln(); end.
- Log in to post comments
- 876 reads