Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.74/530: Рейтинг темы: голосов - 530, средняя оценка - 4.74
0 / 0 / 0
Регистрация: 18.12.2010
Сообщений: 17
1

Найти сумму цифр трехзначного числа

11.01.2011, 19:39. Показов 100425. Ответов 15
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
ТАКАЯ ЗАДАЧКА)
Вводим трехзначное натуральное число.Нужно найти сумму чисел этого числа.

Pascal
1
2
3
4
5
6
7
8
9
10
11
program nomer;
var
N:real;
begin
writeln('vvedite chislo ');
readln(N);
N:=(N div 100)+((N div 10) mod 10)+(N mod 10);
writeln('summa 4ucel ravna: ',N);
writeln;
readln;
end.
В СТРОЧКЕ С " N:=(N div 100)+((N div 10) mod 10)+(N mod 10) " ОШИБКА,ПОМОГИТЕ ПОЖАЛУЙСТА ЕЁ ИСПРАВИТЬ!!!




ВОПРОС ЖИЗНИ И СМЕРТИ !!!!
БУДУ ВЕСЬМА БЛАГОДАРЕН)))))
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.01.2011, 19:39
Ответы с готовыми решениями:

Найти сумму цифр трехзначного числа
дано 3 значное число найти сумму его цыфр

Найти сумму цифр трехзначного числа
Дано тризначне число. Знайти суму його цифр.

Если сумма цифр введенного трехзначного числа N четная, то увеличить число вдвое, иначе найти сумму N+1N
Если сумма цифр введенного трехзначного числа N четная, то увеличить число вдвое, иначе найти сумму...

Вычислить сумму цифр трехзначного числа
Вычислить сумму 3х значного натурального числа!

15
43 / 43 / 5
Регистрация: 26.10.2010
Сообщений: 447
11.01.2011, 19:43 2
Цитата Сообщение от Егорчике Посмотреть сообщение
найти сумму чисел этого числа
Как это?
Может найти сумму всех чисел?
0
141 / 135 / 69
Регистрация: 15.12.2009
Сообщений: 343
11.01.2011, 19:45 3
Лучший ответ Сообщение было отмечено mik-a-el как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
b:real;
n:integer;
begin
writeln('vvedite chislo ');
readln(N);
b:=(N div 100)+((N div 10) mod 10)+(N mod 10);
writeln('summa 4ucel ravna: ',b);
writeln;
readln;
end.
0
0 / 0 / 0
Регистрация: 18.12.2010
Сообщений: 17
11.01.2011, 19:49  [ТС] 4
нееее,мне преподаватель сказал что именно в этой строчке ошибка :
""N:=(N div 100)+((N div 10) mod 10)+(N mod 10)"

Добавлено через 1 минуту
Цитата Сообщение от Сидоренко Посмотреть сообщение
Как это?
Может найти сумму всех чисел?
ну сумму чисел:например 567,это 5+6+7 !!!
0
141 / 135 / 69
Регистрация: 15.12.2009
Сообщений: 343
11.01.2011, 19:50 5
я написал, работает, что еще для счастья нужно
0
0 / 0 / 0
Регистрация: 18.12.2010
Сообщений: 17
11.01.2011, 19:52  [ТС] 6
Цитата Сообщение от andrei63 Посмотреть сообщение
я написал, работает, что еще для счастья нужно
блин я незнаю(((
но препод грузит меня и говорит что неверно(
0
43 / 43 / 5
Регистрация: 26.10.2010
Сообщений: 447
11.01.2011, 19:53 7
Цитата Сообщение от andrei63 Посмотреть сообщение
я написал, работает, что еще для счастья нужно
Она действительно работает!
0
141 / 135 / 69
Регистрация: 15.12.2009
Сообщений: 343
11.01.2011, 19:56 8
Цитата Сообщение от Егорчике Посмотреть сообщение
блин я незнаю(((
как узнаешь, пиши
0
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
11.01.2011, 19:56 9
Во собралась толпа грамотеев! Вы бы сначала выучили чем цифры от чисел отличаются, потом в программирование лезли бы, смотреть противно...
0
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4190 / 1291 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
11.01.2011, 20:01 10
Цитата Сообщение от Егорчике Посмотреть сообщение
Нужно найти сумму чисел этого числа.
грамотеи... цифры от чисел отличить не могу... позор!

Добавлено через 44 секунды

Не по теме:

Не успел )) Puporev опередил )))



Добавлено через 1 минуту
Цитата Сообщение от Егорчике Посмотреть сообщение
ОШИБКА,ПОМОГИТЕ ПОЖАЛУЙСТА ЕЁ ИСПРАВИТЬ!!!
ошибка в том, что ты пытаешься вещественное число делить нацело...
0
43 / 43 / 5
Регистрация: 26.10.2010
Сообщений: 447
11.01.2011, 20:07 11
*****
0
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4190 / 1291 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
11.01.2011, 20:14 12
Цитата Сообщение от Сидоренко Посмотреть сообщение
Он говорит что ошибка не в том что N:real.
а мне как-то все-равно что он говорит. Я знаю, что ошибка в этом и могу это доказать:
операция DIV допустима только для целых чисел. А он пытается вещественное число поделить на целое.
0
0 / 0 / 0
Регистрация: 18.12.2010
Сообщений: 17
11.01.2011, 20:16  [ТС] 13
ну задача то правильно решена?

Добавлено через 1 минуту
Цитата Сообщение от TAVulator Посмотреть сообщение
а мне как-то все-равно что он говорит. Я знаю, что ошибка в этом и могу это доказать:
операция DIV допустима только для целых чисел. А он пытается вещественное число поделить на целое.
напиши пожалуйста как правильно она должна быть написанна в паскале!?
0
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4190 / 1291 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
11.01.2011, 20:19 14
Лучший ответ Сообщение было отмечено mik-a-el как решение

Решение

так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
program nomer;
var
N:integer;
begin
writeln('vvedite chislo ');
readln(N);
N:=(N div 100)+((N div 10) mod 10)+(N mod 10);
writeln('summa 4ucel ravna: ',N);
writeln;
readln;
end.
и какого ражна ты схватился за Real? Если у тебя в задаче написано, что дано натуральное число?
0
0 / 0 / 0
Регистрация: 18.12.2010
Сообщений: 17
11.01.2011, 20:31  [ТС] 15
и какого ражна ты схватился за Real? Если у тебя в задаче написано, что дано натуральное число?[/QUOTE]

считает неправильно!!!
например пишу 123 ,а он ответ выдает 10 (((
0
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
4190 / 1291 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
11.01.2011, 20:39 16
Цитата Сообщение от Егорчике Посмотреть сообщение
считает неправильно!!!
например пишу 123 ,а он ответ выдает 10 (((
не обманывай:
vvedite chislo
123
summa 4ucel ravna: 6
0
11.01.2011, 20:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.01.2011, 20:39
Помогаю со студенческими работами здесь

Определить и вывести сумму цифр трехзначного целого числа
Используя арифметические операции, определить и вывести сумму цифр трехзначного целого числа k...

Целой переменной s присвоить сумму цифр трехзначного целого числа K
Целой переменной s присвоить сумму цифр трехзначного целого числа K.

Найти наибольшее значение отношения трехзначного числа к сумме его цифр.
Составить программу, которая находит наибольшее значение отношения трехзначного числа к сумме его...

Найти сумму цифр заданного четырёхзначного числа N превосходит произведение цифр этого же числа на 1
Помогите решить срочно, буду очень признателен: 1.сумма цифр заданного четырёхзначного числа N...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
16
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru