Информатика | 10 - 11 классы
Решить задачу Дано пятизначное число из интервала [10000, 32767].
Найти сумму первой, второй и пятой цифр этого числа.
Помогите с Паскалем ABC?
Помогите с Паскалем ABC.
Дано пятизначное число.
Определить сумму второй и четвёртой цифры.
Задача по программированию 8 класс?
Задача по программированию 8 класс.
Решите как положено через паскаль!
Дано трехзначное число.
Найти число, полученное при перестановке первой и второй цифр заданного числа.
Помогите решить задачу в PascalABC 1)Даны два числа?
Помогите решить задачу в PascalABC 1)Даны два числа.
Найти сумму их десятков и сумму их единиц.
2)Дано число.
Проверить, делится ли оно на 2, на 3 или на 5.
3)Найти разность пятизначного числа и числа, записанного этими же цифрами в обратном порядке.
Дано пятизначное число Найти число, полученное при прочтении его цифр справа налево?
Дано пятизначное число Найти число, полученное при прочтении его цифр справа налево.
Дано натуральное число n?
Дано натуральное число n.
Найти сумму первой и последней цифры этого числа.
Дано пятизначное число?
Дано пятизначное число.
Найти сумму первой, третьей , пятой цифр произведение второй и четвертой.
Дано пятизначное натуральное число?
Дано пятизначное натуральное число.
Определить его первую и последнюю цифры.
Дано трехзначное число?
Дано трехзначное число.
Найти сумму кубов первой и второй его цифр.
Дано двухзначное число?
Дано двухзначное число.
Получить из него пятизначное, вставив между первой и второй цифрами 0, а в начале и в конце числа по 1.
Дано пятизначное число ?
Дано пятизначное число .
Вывести на экран его первую цифру.
На этой странице сайта размещен вопрос Решить задачу Дано пятизначное число из интервала [10000, 32767]? из категории Информатика с правильным ответом на него. Уровень сложности вопроса соответствует знаниям учеников 10 - 11 классов. Здесь же находятся ответы по заданному поиску, которые вы найдете с помощью автоматической системы. Одновременно с ответом на ваш вопрос показаны другие, похожие варианты по заданной теме. На этой странице можно обсудить все варианты ответов с другими пользователями сайта и получить от них наиболее полную подсказку.
Var
n, s : integer ;
begin
repeat
write ('N = ') ; readln(n) ;
until (n> ; = 10000) and (n< ; = 32767) ;
s : = n div 10000 + (n div 1000) mod 10 + n mod 10 ;
writeln ('Summa : ', s) ;
readln ;
end.