Ребяят, нужно найти сумму цифр трехзначного числа и записать в паскале
5-9 класс
|
var a,a12,a1,a2,a3,s: integer;
begin
readln(a);
a1:=a div 100;
a12:=a mod 100;
a2:=a12 div 10;
a3:=a12 mod 10;
s:=a1+a2+a3;
writeln(s);
end.
a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа
var
a, s: integer; // целочисленный тип данных
begin
writeln('Введите число:');
readln(a); // вводим число (можно больше трех знаков)
while a <> 0 do // пока остались цифры в числе выполнять...
begin
s := s + (a mod 10); // Отбираем последнюю цифру числа и прибавляем к сумме
a := a div 10; // Стираем последнюю цифру числа
end;
writeln('Сумма цифр = ', s) // выводим результат
end.
Другие вопросы из категории
Читайте также
или во втором сумма цифр этого числа будет равна 9.)
Вот задача:
Найти сумму цифр данного числа
решите пожалуйста
очень нужно !!
1.Даны 3 целых числа-А,В,С. Вычислить их сумму и произведение
2.Вывести на экран случайное число от 0 до 10
3.Вывести на экран двузначное случайное число
4. Найти сумму цифр двузначного числа
1. Определить принадлежит ли введенное с клавиатуры число интервалу (0,5)
2.Ввести число с клавиатуры. Если оно положительно,то найти квадрат этого числа,если отрицательно-модуль.
3.Найти большее из двух чисел ,заданных случайным образом из интервала [-7;23]
4.Ввести двузначное число с клавиатуры. Четна ли сумма его цифр?
5. Ввести трехзначное число. Расположить цифры в порядке возрастания