Задача 4 Урок 13.2
Primary tabs
{13.2 — 4 Счёты. визуализируйте на счетах введенное пользователем число.
(28):
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
++---++++++++
++++++++---++}
var num,digit,num_reverse,num_lenght,n,m: integer; begin writeln('write your num '); readln(num); while num > 0 do begin digit:= num mod 10;// последняя цифра числа num:= num div 10; // соркащение на разаряд num_reverse:= num_reverse * 10 + digit; // отзеркаливание num_lenght := num_lenght + 1; // подсчёт длины end; while num_reverse > 0 do begin for n:=7 downto 1 do // строки = разряды begin if (n = num_lenght) then // если подходящий разряд begin for m:=1 to 10 do // числа begin if(m <= digit) then write('+ ') else write('- '); end; num_lenght := num_lenght - 1; num_reverse:= num_reverse div 10; digit:= num_reverse mod 10; end else for m:=1 to 10 do // числа write('- '); writeln(); end; end; readln(); end.
//write your num //92456 //- - - - - - - - - - //- - - - - - - - - - //+ + + + + + + + + - //+ + - - - - - - - - //+ + + + - - - - - - //+ + + + + - - - - - //+ + + + + + - - - -
- Log in to post comments
- 1354 reads
vedro-compota
Thu, 05/27/2021 - 20:26
Permalink
разбейте на процедуры/функции
разбейте на процедуры/функции
_____________
матфак вгу и остальная классика =)