10.05.2012, 22:20 | #1 (permalink) |
Member
Регистрация: 01.05.2012
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Создайте блок схему
Cont Weight:Array[0..19] of longint =(1,3,9,27,81,243,729,2187,6561,19683,59049, 177147,531441,1594323,4782969,14348907, 43046721,129140163,387420489,1162261467); Var m,n temp,i,j:longint; d:Array[0..20] of -1..1; begin Assign(input,'Input.txt'); reset(Input); Readln(m,n); Close(Input); temp:=m; i:=1; While temp>0 do begin D[i]:=temp mod 3 ; If D[i]=2 then d[i]:=-1; temp:=(temp-D[i]) div 3; Inc(i) end; Assign(Output,'Output.txt'); Rewrite(Output); Write(m); Writeln; Close(output); end. |
10.05.2012, 22:20 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Прочитайте похожие темы, это не сложно Составить блок-схему Составить блок-схему и программу Помогите написать блок-схему Составить блок-схему и операторную схему Помогите нарисовать блок схему Помогите создать блок-схему |
11.05.2012, 00:34 | #3 (permalink) |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|