Задача 4 Урок 13.2
Primary tabs
В некоем виртуальном пространстве есть виртуальные, опять же, ASCII-счеты, с 7-ю спицами по 10 костяшек на каждой, в сброшенном состоянии (условный ноль) они выглядят так:
---++++++++++ ---++++++++++ ---++++++++++ ---++++++++++ ---++++++++++ ---++++++++++ ---++++++++++Задание: визуализируйте на счетах введенное пользователем число.
program U13_2Z4; var i,j,a:integer; n,x:real; begin writeln('vvedite chislo'); readln(n); x:=1000000; for i:=1 to 7 do begin a:=trunc(n/x); n:=(n-a*x); x:=x/10; for j:=a downto 1 do write('+ '); write('- - - '); for j:=1 to (10-a) do write('+ '); writeln(); end; readln(); end.
- Log in to post comments
- 1372 reads
vedro-compota
Sun, 08/22/2021 - 12:21
Permalink
Переписать без trunc (с
Переписать без trunc (с помощью div)
_____________
матфак вгу и остальная классика =)
slavina036
Wed, 09/15/2021 - 08:31
Permalink
program U13_2Z4;