сервис вопросов и ответовВвести целое четырёхзначное число и найти сумму его цифр
5-9 класс|
|
Паскаль
65746746
16 дек. 2016 г., 12:04:14 (7 лет назад)
Max47548
16 дек. 2016 г., 14:27:46 (7 лет назад)
var
x, S:integer;
begin
write('Введите число:');
readln(x);
// c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
S := 0;
while x > 0 do
begin
S := S + x mod 10;
x := x div 10;
end;
writeln('Сумма всех цифр:', S);end.
Помог? Жми Лучший
Fsdsdfsdsfdfsd
16 дек. 2016 г., 15:57:41 (7 лет назад)
Program task;
var a,b,c,d,n,s:longint;
begin
writeln('vvedite chislo 4-значноe chislo');read(a);
b:= a div 1000;
c:= a div 100 mod 10;
d:= a div 10 mod 10 ;
n:= a mod 10;
writeln('n=',n);
writeln('b=',b);
writeln('c=',c);
writeln('d=',d);
writeln('s=',b+c+d+n);
end.
Ответить
Другие вопросы из категории
Ребус ПОМОГИТЕ, ПОЖАЛУЙСТА, СРОЧНО!!!
Решите следующий числовой ребус: СМЕХ + ГРОМ = ГРЕМИ.
1. Имеется русский текст (величина алфавита - 32 символа) длиной 10 символов. Сколько бит надо, чтобы записать это текст на жесткий диск?
2. Текст составлен с использованием алфавита мощностью 128 символа и содержит 10 символов. Каков информационный объем текста?
Буду очень благодарна, ответ пойдет в лучший :)
Пожалуйста помогите!Если можно с объяснением)
1.В корзине лежат 8 черных шаров и 24 белых шаров. Сколько информации содержит сообщение о том, что из корзины достали белый шар.
2.Алфавит племени "Мульти" содержит 16 символов, а племени "Пульти" мощность 8 символов. "Мульти" составили сообщение из 200-т символов, а "Пульти" 400-т. Чье сообщение содержит большое кол-во информации.
Читайте также
Ввести целое число и найти сумму его цифр.
Пример:
Введите целое число:
1234
Сумма цифр числа 1234 равна 10.
Ввести целое число и найти сумму его цифр.
Пример:
Введите целое число:
1 2 3 4
Сумма цифр числа 1 2 3 4 равна 10
Введите целое число и найти сумму его цифр.
Пример:
Введите целое число:
1 2 3 4
Сумма цифр числа 1 2 3 4 равна 10
ввести целое число и найти сумму его цифр .проверить , если сумма цифр делится на 9 , сделать вывод число кратно 9 .
В pascal . Составьте пожалуйста полную программу со всеми обозначениями .
Вы находитесь на странице вопроса "Ввести целое четырёхзначное число и найти сумму его цифр", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.