Информатика | 10 - 11 классы
Pascal.
Найти все трехзначные числа - палиндромы.
Задача с использованием repeat (обязательно).
Pascal ABC :1?
Pascal ABC :
1.
Приведите пример использования оператора условия.
2. Приведите пример использования оператора цикла.
3. Приведите пример использования операторов ввода - вывода.
Упорядочить по убыванию элементы целочисленного массива, расположенные после минимального числа - палиндрома?
Упорядочить по убыванию элементы целочисленного массива, расположенные после минимального числа - палиндрома.
Решить задачу в с + +.
1. Дано 3 числа?
1. Дано 3 числа.
Найти произведение двух наименьших из этих чисел
написать программу на pascal.
Найти наименьшее общее кратное трех натуральных чисел в Pascal?
Найти наименьшее общее кратное трех натуральных чисел в Pascal.
Дано трехзначное число?
Дано трехзначное число.
Определить, является ли сумма его цифр кратна 3 и 5.
Написать программу на C + + и Pascal.
Написать на С + + ?
Написать на С + + .
Дано трехзначное число.
Выяснить, является ли оно палиндромом ( «оборотнем»).
Таким числом, десятичная запись которого читается одинаково слева направо и справа налево.
Составьте программу в Pascal ABC?
Составьте программу в Pascal ABC.
Даны три числа.
Найти наименьшее.
Найти разность между произведением и суммой цифр трехзначного числа?
Найти разность между произведением и суммой цифр трехзначного числа.
Pascal.
Ввести слово?
Ввести слово.
Определить является ли оно палиндромом.
(Используя div)
Pascal Turbo.
Перед вами страница с вопросом Pascal?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся 10 - 11 классов. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.
Var i : integer ;
begin
i : = 100 ;
repeat
if (i mod 10 = i div 100) then
print(i) ;
i : = i + 1 ;
until (i>999) ;
end.
Решение, с помощью которого не придется перебирать 800 чисел подряд :
var i, j : Integer ;
begin i : = 1 ; repeat j : = 0 ; repeat writeln(i, j, i) ; j : = j + 1 ; until j = 9 ; i : = i + 1 until i = 9
end.