Информатика | 5 - 9 классы
Найти сумму цифр четырехзначного числа через цикл с постусловием.
Дано четырехзначное число?
Дано четырехзначное число.
Найти сумму квадратов второй и третьей цифры.
Чем отличается цикл с предусловием от цикла с постусловием?
Чем отличается цикл с предусловием от цикла с постусловием?
Четырехзначное число, у которого первая цифра равно второй а третья четвертой, является квадратом двузначного числа?
Четырехзначное число, у которого первая цифра равно второй а третья четвертой, является квадратом двузначного числа.
Найти эти числа.
(паскаль, циклы).
Дано четырехзначное число?
Дано четырехзначное число.
Найти : сумму его цифр.
Написать программу на Pascal'е.
Напечатайте в столбик нечетные числа от 3 до 25 через цикл с постусловием?
Напечатайте в столбик нечетные числа от 3 до 25 через цикл с постусловием.
Плз скорее.
Дано натуральное четырехзначное число n?
Дано натуральное четырехзначное число n.
Найти сумму его цифр.
Найти сумму цифр четырехзначного числа в паскалях?
Найти сумму цифр четырехзначного числа в паскалях.
Можно ли цикл с параметром переделать в цикл с предусловием или постусловием?
Можно ли цикл с параметром переделать в цикл с предусловием или постусловием.
Решить задачу, используя «цикл с параметром», «цикл с предусловием», «цикл с постусловием»?
Решить задачу, используя «цикл с параметром», «цикл с предусловием», «цикл с постусловием».
Найти сумму и произведение первых n натуральных чисел.
С клавиатуры вводится четырехзначное число?
С клавиатуры вводится четырехзначное число.
Необходимо подсчитать сумму цифр этого числа.
На этой странице находится вопрос Найти сумму цифр четырехзначного числа через цикл с постусловием?. Здесь же – ответы на него, и похожие вопросы в категории Информатика, которые можно найти с помощью простой в использовании поисковой системы. Уровень сложности вопроса соответствует уровню подготовки учащихся 5 - 9 классов. В комментариях, оставленных ниже, ознакомьтесь с вариантами ответов посетителей страницы. С ними можно обсудить тему вопроса в режиме on-line. Если ни один из предложенных ответов не устраивает, сформулируйте новый вопрос в поисковой строке, расположенной вверху, и нажмите кнопку.
Var a, s : integer ;
begin
readln (a) ;
repeat
s : = s + a mod 10 ;
a : = a div 10 ;
until a = 0 ;
writeln (s) ;
end.