Информатика | 10 - 11 классы
В данном целом числе N, заменить нулями все четные цифры в данном числе.
Вывести полученное число.
(Паскаль).
Помогите, пожалуйста, составить программу в паскале?
Помогите, пожалуйста, составить программу в паскале!
Дано четырехзначное число заменить в нем наибольшую цифру нулем.
Дано трехзначное число?
Дано трехзначное число.
Вывести порядковый номер его минимальной цифры.
Паскаль.
Помогите, пожалуйста?
Помогите, пожалуйста!
Паскаль
дано четырехзначное число, заменить нулем максимальную цифру.
Дано натуральное число?
Дано натуральное число.
Определить каких цифр в данном числе больше четных или нечетных.
Через Паскаль.
3. Дано целое трехзначное число А?
3. Дано целое трехзначное число А.
Вывести цифры этого числа на экран в столбик.
Паскаль.
Дано целое двузначное число?
Дано целое двузначное число.
Верно ли, что обе его цифры четные?
(Ответ вывести в форме «Да» либо «Нет»).
1. Дано двузначное число?
1. Дано двузначное число.
Найти разность и частное его цифр.
2. Дано целое число.
Если оно является положительным то прибавить к нему 1.
Емли нулевым то заменить его на 10.
3. Дано двузначное число.
Вывести его левую цифру, потом правую.
4. Дано целое число, определить является ли оно четным.
5. даны два целых числа.
Найти сумму всех целых чисел от а до в.
Написать программы (паскаль).
Дано натуральное число?
Дано натуральное число.
Вывести произведение его четных цифр (программа).
Дано целое число N увеличить число в 3 раза если число четное ?
Дано целое число N увеличить число в 3 раза если число четное .
Входные данные 4.
Выводимые данные 12.
Паскаль.
Дано целое четырехзначное число?
Дано целое четырехзначное число.
Если число четное, найти произведение его цифр, иначе перевернуть число, записав его цифры в обратном порядке.
Написать программу в Паскале.
На этой странице вы найдете ответ на вопрос В данном целом числе N, заменить нулями все четные цифры в данном числе?. Вопрос соответствует категории Информатика и уровню подготовки учащихся 10 - 11 классов классов. Если ответ полностью не удовлетворяет критериям поиска, ниже можно ознакомиться с вариантами ответов других посетителей страницы или обсудить с ними интересующую тему. Здесь также можно воспользоваться «умным поиском», который покажет аналогичные вопросы в этой категории. Если ни один из предложенных ответов не подходит, попробуйте самостоятельно сформулировать вопрос иначе, нажав кнопку вверху страницы.
Program changeNum ;
var
num : string ;
ci : byte ;
begin
readln(num) ;
for ci : = 1 to ord(num[0]) do
if (ord(num[ci]) - 48) mod 2 = 0 thennum[ci] : = '0' ;
writeln ;
write(num) ; readln ;
end.