сервис вопросов и ответовНайти сумму пятизначного числа:у меня вот что но это неправильно можете найти ошибку пожалуйста:
5-9 класс|
|
program summa5znchisla;
uses crt;
var A,B,C,D,E,S,X:integer;
begin
clrscr;
writeln('Введите 5-ое число');
readln(x);
A:= X div 10000;
B:= X div 10000 mod 1000;
C:= X div 1000 mod 100;
D:= X div 100 mod 10;
E:= X div 100 mod 10;
S:= A+B+C+D+E;
writeln('Сумма числа', X, 'равна',S);
end.
Fedorchenko852
01 окт. 2016 г., 21:45:57 (7 лет назад)
D090102z
01 окт. 2016 г., 23:31:25 (7 лет назад)
Твой код был правильный, разве что местами div и mod стоило поменять:
program summa5znchisla;
uses crt;
var A,B,C,D,E,S,X:integer;
begin
clrscr;
write('Введите пятизначное число: '
Irisha40
02 окт. 2016 г., 1:05:11 (7 лет назад)
Во общем всё намного проще! Создаёшь массив a[1..5](это твои A,B и т.д)
Потом с помощью цикла заполняешь его!
for i:=1 to 5 do
begin
a[i]:=x mod 10;
s:=s+a[i];
x:=x div 10;
end;
Потом выводишь S и задача решена!
Сам на паскале давно не пишу так, что прости за небольшие ошибки(не компилировал).
Ответить
Другие вопросы из категории
Известо что некто расположил все буквы алфавита по кругу и заменил каждую букву исходного сообщения на следущию после нее дикоротируйти полученые
шифровки
об оёу й тфеб оёу
лпоёч-еёмф гёоёч
Читайте также
1.С клавиатуры вводится 3 числа. Найти сумму только из положительных чисел.
(Тема:Программирование ветвлящихся и цепленных алгоритмов)
2.Дано двухзначное число,найти сумму и произведение его чисел.
(2-ая задача решается с div и mod)
(Тема:Программирование ветвлящихся и цепленных алгоритмов )
даны два числа. Если первое число нечетное, то найти сумму кубов, а иначе - куб суммы. даны три числа. Если хотя бы одно из чи
сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.
Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа
ПОМОГИТЕ ОЧЕНЬ ПРОШУ
Дано целое число N и набор из N целых чисел. Найти минимальное положительное число из данного набора. Если положительные числа в наборе отсутсвуют, то
вывести 0.
С выводом минимального положительного числа у меня вроде бы получилось, а вот с проверкой на отрицательность не вышло
1)дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
Введите целое число и найти сумму его цифр.
Пример:
Введите целое число:
1 2 3 4
Сумма цифр числа 1 2 3 4 равна 10
Вы находитесь на странице вопроса "Найти сумму пятизначного числа:у меня вот что но это неправильно можете найти ошибку пожалуйста:", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.