|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.04.2014, 19:08 | #1 |
Новичок
Джуниор
Регистрация: 23.04.2014
Сообщений: 1
|
Помогите пожалуйста создать блок схему
Program Ex;
var i,y,x,n,k:integer; s:real; begin write('Введите число в 2-ой системе счисления: '); readln(n); x:=n; k:=n; while x>0 do begin x:=x div 10; inc(y); end; for i:=0 to y-1 do begin s:=(k mod 10)*Power(2,i)+s; k:=k div 10; end; writeln(s,' - число в 10-ной системе счисления'); end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите, пожалуйста составить блок-схему. | Anteya123 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 21.04.2014 20:38 |
Помогите создать блок-схему | Operator-cn | Общие вопросы C/C++ | 5 | 22.10.2009 21:16 |
Помогите пожалуйста нарисовать блок-схему | Анюта141 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 27.05.2009 06:36 |