Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Ребяят, нужно найти сумму цифр трехзначного числа и записать в паскале

5-9 класс

Natalie983092 07 авг. 2013 г., 18:50:47 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Andrsidar
07 авг. 2013 г., 19:34:58 (10 лет назад)

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-вторые два числа

+ 0 -
Ofiggennaya
07 авг. 2013 г., 22:13:37 (10 лет назад)

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.

Ответить

Читайте также

Нужно написать программу на языке Паскаля!

Вот задача:
Найти сумму цифр данного числа

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

решите пожалуйста
очень нужно !!

ИНФОРМАТИКА,РЕШИТЬ ЗАДАЧИ ,помогите решить,пожалуйста,хоть несколько!

1.Даны 3 целых числа-А,В,С. Вычислить их сумму и произведение
2.Вывести на экран случайное число от 0 до 10
3.Вывести на экран двузначное случайное число
4. Найти сумму цифр двузначного числа

1. Определить принадлежит ли введенное с клавиатуры число интервалу (0,5)
2.Ввести число с клавиатуры. Если оно положительно,то найти квадрат этого числа,если отрицательно-модуль.
3.Найти большее из двух чисел ,заданных случайным образом из интервала [-7;23]
4.Ввести двузначное число с клавиатуры. Четна ли сумма его цифр?
5. Ввести трехзначное число. Расположить цифры в порядке возрастания



Вы находитесь на странице вопроса "Ребяят, нужно найти сумму цифр трехзначного числа и записать в паскале", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.