Паскаль! Дано число. Умножить его на 9 (один раз). Получить сумму его цифр. Т.е. доказать, что сумма цифр этого числа будет равна 9. (В первом раскладе
5-9 класс
|
или во втором сумма цифр этого числа будет равна 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.
Другие вопросы из категории
гирь, путём не более пяти взвешиваний расположить их по возрастанию веса?"
Читайте также
Вывести полученные результаты.
вторая-умножает его на 3. Например, программа 112 преобразует исходное число 1 в число 15: 1+2=3, 3+2=5, 5*3=15. Сколько существует разных программ, позволяющих преобразовать число 1 в число 15?
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
1) Дан линейный массив a[1..n], содержащий целые числа. Вычислите сумму нечетных чисел и распечатать номера таких чисел. 2) Дан линейных массив [1..n], содержащий целые числа. Преобразовать элементы массива по следующему правилу: если элемент положительный, то умножить его на два, а если отрицательный -- поменять знак на противоположный.