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

Паскаль! Дано число. Умножить его на 9 (один раз). Получить сумму его цифр. Т.е. доказать, что сумма цифр этого числа будет равна 9. (В первом раскладе

5-9 класс

или во втором сумма цифр этого числа будет равна 9.)

Lapshinsanya19 20 марта 2015 г., 22:10:45 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Lavrens2003
20 марта 2015 г., 23:23:41 (9 лет назад)

var
a,b:integer;
begin
readln(a);
a:=a*9;
while a<>9 do
begin

  b:=0;
  while a<>0 do
  begin
    b:=b+a mod 10;
    a:=a div 10;
  end;
  a:=b;
end;
end.

 

Ответить

Другие вопросы из категории

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

Pascal ABC. Ввести число умножить его на 2. Ввести второе число. Отнять от него 10.

Вывести полученные результаты.

У исполнителя Вычислитель есть две команды, которым присвоены номера:1-прибавь 2, 2-умножь на 3. Первая из них увеличивает текущее число на 2,

вторая-умножает его на 3. Например, программа 112 преобразует исходное число 1 в число 15: 1+2=3, 3+2=5, 5*3=15. Сколько существует разных программ, позволяющих преобразовать число 1 в число 15?

Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора

результат

2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат

PascalABC 40 баллов!!!

1) Дан линейный массив a[1..n], содержащий целые числа. Вычислите сумму нечетных чисел и распечатать номера таких чисел. 2) Дан линейных массив [1..n], содержащий целые числа. Преобразовать элементы массива по следующему правилу: если элемент положительный, то умножить его на два, а если отрицательный -- поменять знак на противоположный.



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