|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.05.2010, 18:29 | #1 |
Новичок
Джуниор
Регистрация: 11.05.2010
Сообщений: 1
|
Народ, перевести программу с паскаля на с++
program yadelalsam;
uses Crt; var k,y: integer; z,x,i,p:longint; procedure SAM; var w,v:integer; begin if (x<=i) and (x)=p) then begin z:=x div p: x:=x-(z*p); if z=1 then y:=y+1; end end; begin crlScr; y:=0; i:=1000000001; p:=100000000; writeln(‘ vvedite chislo ‘); readln(x); for k:=1 to 9 do begin SAM; p:=p div 10; i:=I div 10; end; writeln(‘edenic v chisel =’,y); readln; end. Р.S. прога вычисляет все едяницы в числе)) сам не бум бум в с++(( |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
нужно перевести программу с Паскаля на С | SweetDream | Помощь студентам | 4 | 24.04.2010 17:51 |
Нужно перевести с Паскаля на с++ | megavolt91 | Фриланс | 6 | 26.05.2009 00:14 |