24.05.2012, 14:31 | #1 (permalink) |
Banned
Регистрация: 16.11.2011
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Подпрограммы
Язык-Паскаль АБС VAR N,m,S:LongInt; BEGIN Write('N= '); ReadLn(N); m:=1; Repeat m:=m*10; Until m>N; m:=m div 10; S:=N div m; Repeat m:=m div 10; if m>0 then begin N:=N mod m; m:=m div 10; if m>0 then S:=S+(N div m); end; Until m=0; Writeln('S= ',S); Readln END. |
24.05.2012, 14:31 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ранее на форуме создавалось что то аналогично Массив, файлы, подпрограммы. Pascal Подпрограммы. Процедуры и функции |
27.05.2012, 23:07 | #3 (permalink) |
Banned
Регистрация: 16.11.2011
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Уже не нужно,сделал сам)Спасибо за отзывчивость)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|