НАЙТИ СУММУ ЦИФР ЗАДАННОГО ЧИСЛА 3456,ЗАДАНО 4-Х ЗНАЧНОЕ ЧИСЛО,НАЙТИ,ЕСТЬ ЛИ СРЕДИ НИХ ЦИФРА 7?
10-11 класс
|
var a,b:integer;
is7:boolean;
begin
readln(a);
b:=0;
is7:=false;
while a <>0 do
begin
b:=b+a mod 10;
if a mod 10 = 7 then
is7:=true;
a:=a div 10;
end;
wrtieln('Сумма цифр: ', b);
write('Цифра 7 ');
if is7 then writeln('есть') else writeln('нет');
readln;
end.
сумма=18
семерки нету
или тебе программу написать?
Другие вопросы из категории
периферийных устройств. Отправляясь на свое задание, Васечкин получил от своих более опытных коллег по работе напутствие, в каком порядке нужно устанавливать драйвера. Но коллеги были с чувством юмора и решили дать советы, в которых лишь половина является правдой, а остальное сознательной ложью.
Помощник мастера: Первым можно установить только сканер, а внешний жесткий диск – предпоследним.
Диспетчер: Монитор устанавливай обязательно вторым, а четвертым – внешний жесткий диск.
Начальник отдела: Монитор необходимо устанавливать вторым, а сканер только третьим.
Старший мастер: Никогда не ставь третьим принтер, не нужно ставить последней музыкальную клавиатуру.
Младший мастер: Музыкальную клавиатуру можно поставить самой первой, а вторым – принтер.
Помогите Васечкину восстановить точную последовательность установки драйверов. В ответе укажите подряд первые буквы устройств в том порядке, в котором необходимо устанавливать для них драйвера.
( В – внешний жесткий диск, К – музыкальная клавиатура, М – монитор, П – принтер, С – сканер).
решений имеет уравнение (АВ)↔(АС) = А(А→С), где А, В, С – логические переменные?
Читайте также
2.Составить алгоритм вычисления разности кубов цифр, заданного восьмизначного числа.
3. Для заданного действительного числа К вычислить значение произведения
(99/k^3-98)*(97/k^3+96)*(95/k^3-94)*...*(3/k^3+2)
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
последних цифр заданного числа; 3) число, образованное перестановкой второй и четвёртой цифр заданного числа.
2.вычислить стоимость покупки с учетом скидки.Скидка в 10% предоставляется,если сумма покупки больше 1000 руб.