Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Помогите решить простую задачу. Pascal   Найти похожие ветки 

 
Gomosapin   (2004-04-19 23:27) [0]

Составте программу вычисления суммы цыфр введенного с клавиатуры  
трехзначного числа. Например, для числа 128 сумма цифр 11, для числа 345 сумма цифр 12.

P.S. Я просто незнаю какой оператор делит целое число на 3 части.


 
Gomosapin   (2004-04-19 23:27) [0]

Составте программу вычисления суммы цыфр введенного с клавиатуры  
трехзначного числа. Например, для числа 128 сумма цифр 11, для числа 345 сумма цифр 12.

P.S. Я просто незнаю какой оператор делит целое число на 3 части.


 
RealRascal ©   (2004-04-19 23:33) [1]

var i,j,res:integer;
s:string;
begin
// ввод числа в j
res:=0;
s:=inttostr(j);
for i:=1 to high(s) do
begin
res:=res+strtoint(s[i])
end;
end;


 
RealRascal ©   (2004-04-19 23:33) [1]

var i,j,res:integer;
s:string;
begin
// ввод числа в j
res:=0;
s:=inttostr(j);
for i:=1 to high(s) do
begin
res:=res+strtoint(s[i])
end;
end;


 
RealRascal ©   (2004-04-19 23:34) [2]

не самый оптимальный но имхо самый простой способ


 
RealRascal ©   (2004-04-19 23:34) [2]

не самый оптимальный но имхо самый простой способ


 
sniknik ©   (2004-04-19 23:35) [3]

> трехзначного числа

128 div 100 = 1
(128 mod 100) div 10 = 2
128 mod 100 = 8

1+2+8=11

p.s. надеюсь программистом стать не хочеш... ???


 
sniknik ©   (2004-04-19 23:35) [3]

> трехзначного числа

128 div 100 = 1
(128 mod 100) div 10 = 2
128 mod 100 = 8

1+2+8=11

p.s. надеюсь программистом стать не хочеш... ???


 
SergP ©   (2004-04-19 23:35) [4]

Удалено модератором
Примечание: Уважай форум


 
SergP ©   (2004-04-19 23:35) [4]

Удалено модератором
Примечание: Уважай форум


 
Gomosapin   (2004-04-19 23:36) [5]

А как это сделать в Паскале?


 
Gomosapin   (2004-04-19 23:36) [5]

А как это сделать в Паскале?


 
Gomosapin   (2004-04-19 23:36) [6]

Всем огромное спасибо!!!!!!


 
Gomosapin   (2004-04-19 23:36) [6]

Всем огромное спасибо!!!!!!


 
sniknik ©   (2004-04-19 23:36) [7]

:о((
последня строка должна быть  
128 mod 10 = 8


 
sniknik ©   (2004-04-19 23:36) [7]

:о((
последня строка должна быть  
128 mod 10 = 8


 
Gomosapin   (2004-04-19 23:38) [8]

sniknik ©   (19.04.04 23:35) [3]

Спасибо за твою подсказку, но это же ты сделал для конкретного числа, а числа то могут быть разные...


 
Gomosapin   (2004-04-19 23:38) [8]

sniknik ©   (19.04.04 23:35) [3]

Спасибо за твою подсказку, но это же ты сделал для конкретного числа, а числа то могут быть разные...


 
Gomosapin   (2004-04-19 23:40) [9]

А все понял, блин а я так хотел стать програмером :((((
Какой же теперь из меня программер, о боже, за что ???


 
Gomosapin   (2004-04-19 23:40) [9]

А все понял, блин а я так хотел стать програмером :((((
Какой же теперь из меня программер, о боже, за что ???



Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.042 c
7-1080538520
Ivolg
2004-03-29 09:35
2004.05.09
Указатель


14-1082017548
blackman
2004-04-15 12:25
2004.05.09
Как программно обновить список установленного оборудования ? [D6,


7-1079601360
Batoon
2004-03-18 12:16
2004.05.09
Как перезагрузить ЛЮБУЮ винду???


4-1079172047
Sur
2004-03-13 13:00
2004.05.09
TProcessEntry32


8-1076941731
kopcap
2004-02-16 17:28
2004.05.09
Как быстрее выводить спрайт





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский