Задача 5 Урок 13.2
Primary tabs
визуализируйте на счетах введенное пользователем число.
var b,s,i,j,a,w: integer; begin writeln('Введите число'); readln(b); s:=3; w:=1000000; for i:=1 to 7 do begin for j:=1 to 13 do begin a:=(b div w); if (j<=s+a) and (j>a) then write('-') else write('+'); end; writeln(); b:=(b mod w); w:=(w div 10); end; readln(); end.
- Log in to post comments
- 678 reads