Информатика | 10 - 11 классы
Дано целое число.
Найти наименьшее четное из набора.
То есть если число 123, то ответом будет 1.
Язык паскаль.
Даны три целых числа?
Даны три целых числа.
Найти количество положительных и отрицательных в исходном наборе.
Дано натуральное число?
Дано натуральное число.
Определить каких цифр в данном числе больше четных или нечетных.
Через Паскаль.
МНОГО БАЛЛОВ?
МНОГО БАЛЛОВ.
Написать на языке Паскаль данную задачу.
Желательно, с пояснениями.
Дано целое 3 - хзначное число.
Определить, является ли сумма его цифр четной.
Пожалуйста решите на языке C + + : Series8?
Пожалуйста решите на языке C + + : Series8.
Дано целое число N и набор из N целых чисел.
Вывести в том же порядке все четные числа из данного набора и количество K таких чисел.
Даны три числа x, y и z?
Даны три числа x, y и z.
Найти : количество и сумму четных чисел, делящихся на 3.
Написать, на языке Паскаль.
В данном целом числе N, заменить нулями все четные цифры в данном числе?
В данном целом числе N, заменить нулями все четные цифры в данном числе.
Вывести полученное число.
(Паскаль).
Дано целое число N увеличить число в 3 раза если число четное ?
Дано целое число N увеличить число в 3 раза если число четное .
Входные данные 4.
Выводимые данные 12.
Паскаль.
Дано целое четырехзначное число?
Дано целое четырехзначное число.
Если число четное, найти произведение его цифр, иначе перевернуть число, записав его цифры в обратном порядке.
Написать программу в Паскале.
Даны два целых числа от 1 до 1 000 000 000?
Даны два целых числа от 1 до 1 000 000 000.
Найти сумму этих чисел.
Входные данные : два целых числа.
Выходные данные : целое число.
На Паскале.
На языке ПаскальВвести 3 числа среди них найти наименьшее и вывести его?
На языке Паскаль
Ввести 3 числа среди них найти наименьшее и вывести его.
На странице вопроса Дано целое число? из категории Информатика вы найдете ответ для уровня учащихся 10 - 11 классов. Если полученный ответ не устраивает и нужно расшить круг поиска, используйте удобную поисковую систему сайта. Можно также ознакомиться с похожими вопросами и ответами других пользователей в этой же категории или создать новый вопрос. Возможно, вам будет полезной информация, оставленная пользователями в комментариях, где можно обсудить тему с помощью обратной связи.
Var min, num : int64 ;
begin writeln('Vvedite chislo') ; readln(num) ; min : = num mod 10 ; while(num> ; 0) do begin if(min> ; (num mod 10)) then min : = num mod 10 ; num : = num div 10 ; end ; writeln(min) ; readln ; end.