Информатика | 10 - 11 классы
1. Дано целое число А.
Определить количество цифр в числе, которые больше 6.
Pascal.
Дано целое число N?
Дано целое число N.
Составить программу нахождения количества цифр числа (Pascal ABC).
Pascal Дано три целых числа?
Pascal Дано три целых числа.
Вывести на экран те, для которых число А будет делителем.
Срочно помогите.
Определить последнюю цифру заданного целого числа в pascal?
Определить последнюю цифру заданного целого числа в pascal.
Найдите все трехзначные числа, сумма цифр которых равна данному целому числу?
Найдите все трехзначные числа, сумма цифр которых равна данному целому числу.
(pascal).
Дано целое число N?
Дано целое число N.
Определите количество нечётных цифр в данном числе.
(Pascal).
С клавиатуры вводится целое положительное число?
С клавиатуры вводится целое положительное число.
Определить, сколько в этом числе чётных цифр.
(PASCAL).
Дано натуральное число N ?
Дано натуральное число N .
Определить наименьшую и наибольшую цифры данного числа (Pascal ABC).
Написать функцию, подсчитывающую количество цифр целого числа?
Написать функцию, подсчитывающую количество цифр целого числа.
Используя ее, определить, в каком из двух данных чисел больше цифр.
Даны два целых двузначных числа?
Даны два целых двузначных числа.
Верное ли, что все цифры первого числа больше соответствующих цифр второго числа?
Написать программу для Pascal.
Дано двузначное число?
Дано двузначное число.
Определить, кратна ли трем сумма его цифр?
( Pascal).
Вы зашли на страницу вопроса 1. Дано целое число А?, который относится к категории Информатика. По уровню сложности вопрос соответствует учебной программе для учащихся 10 - 11 классов. В этой же категории вы найдете ответ и на другие, похожие вопросы по теме, найти который можно с помощью автоматической системы «умный поиск». Интересную информацию можно найти в комментариях-ответах пользователей, с которыми есть обратная связь для обсуждения темы. Если предложенные варианты ответов не удовлетворяют, создайте свой вариант запроса в верхней строке.
Var
A, counter : integer ;
begin readln(A) ; counter : = 0 ; repeat if (A mod 10 > ; 6) then inc(counter) ; A : = A div 10 ; until (A = 0) ; writeln(counter) ;
end.