Информатика | 5 - 9 классы
Паскаль!
Дано число.
Умножить его на 9 (один раз).
Получить сумму его цифр.
Т. е.
Доказать, что сумма цифр этого числа будет равна 9.
(В первом раскладе или во втором сумма цифр этого числа будет равна 9.
).
Найти сумму цифр четырехзначного числа в паскалях?
Найти сумму цифр четырехзначного числа в паскалях.
Дано трехзначное число?
Дано трехзначное число.
Найти сумму цифр числа.
(Написать программу на языке Паскаль).
Помогите с Паскалем ABC?
Помогите с Паскалем ABC.
Дано пятизначное число.
Определить сумму второй и четвёртой цифры.
Ввести целое число и найти сумму его цифр?
Ввести целое число и найти сумму его цифр.
Пример : Введите целое число : 1234 Сумма цифр числа 1234 равна 10.
Дано двузначное число?
Дано двузначное число.
Определить : а) является ли сумма его цифр двузначным числом ; б) больше ли числа а сумма его цифр.
Составить программу на паскале Дано натуральное число, найти сумму цифр этого числа?
Составить программу на паскале Дано натуральное число, найти сумму цифр этого числа!
Дано трехзначное число?
Дано трехзначное число.
Найти сумму кубов первой и второй его цифр.
Дано число?
Дано число.
Определить чему равна сумма нечетных цифр в этом числе.
Дано натуральное число n?
Дано натуральное число n.
Определить : a) Количество цифр в этом числе ; б)Сумму его цифр ; в)Первую цифру числа n ;
Решить в паскале : дано двузначное число, определить : а) кратно ли 3 сумма его цифр ; б) кратно ли сумма его цифр числу a?
Решить в паскале : дано двузначное число, определить : а) кратно ли 3 сумма его цифр ; б) кратно ли сумма его цифр числу a.
Вопрос Паскаль?, расположенный на этой странице сайта, относится к категории Информатика и соответствует программе для 5 - 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.