Предмет: Информатика, автор: ZZTor

Дано натуральное число: *найти произведение его цифр *верно ли, что в данном числе нет данной цифры А, А ввод. с клавиатуры
В паскале

Ответы

Автор ответа: SanyaClaus
0
var x, temp, p, a, original: integer;
found: boolean;
begin
found:=false; //переменная примет значение "истина" тогда, когда число А будет найдено в цифрах первого числа
writeln('Введите натуральное число");
Readln(original);
Writeln('Введите число A');
Readln(a);
x:=original;
p:=1; //будет хранить произведение цифр числа(если приравнять нулю, то произведение всегда будет равно нулю)
while x>0 do            //пока X болльше нуля
  begin
    temp:=x mod 10;     //заносим последнюю цифру числа X в переменную temp
    if temp=a then found:=true; //если цифра числа равна A, то помечаем, что нашли ее
    p:=p*temp;          //домножаем произведение на цифру
    x:=x div 10;        //отбрасываем последнюю цифру числа через целочисленное деление
  end;
Writeln('Произведение цифр числа ' + original + ' равно ' + p);
if found then writeln('Цифра' + a + ' есть в исходном числе ' + original)
else writeln('Цифра ' + a + ' отсутствует в оригинальном числе ' + original)
end;
Автор ответа: mopozko123
0
writeln(p);
repeat {проверка на присутствие в произведении}
begin
m[p mod 10] := true;
p:= p div 10;
end;
until p = 0;
readln(a);{Ввод искомого числа}
if m[a] then writeln('Данное число присутствует' )
else writeln('Данное число отсутствует');
end.
Автор ответа: mopozko123
0
Сложно, но делает все указанное ТС
Автор ответа: mopozko123
0
Я тут новичек, можете подсказать, как писать ответы не в комментах, а под самим заданием?
Автор ответа: SanyaClaus
0
Морозко, если нет комментариев еще, то прям под заданием "Попросите больше объяснений", если есть уже, то там и оставляешь :)
Автор ответа: SanyaClaus
0
Но массив немного некорректно использовать здесь.
Похожие вопросы
Предмет: Математика, автор: inyourarea434
Предмет: Русский язык, автор: Аноним
Помогите пожалуйста дам 40 баллов
задание 1
Прочитайте текст. Выполните задания
Жила-была на свете одна семья. Она была не простая. Более ста человек насчитывалось в этой семье. И занимала она целое село. Так и жили всей семьёй и всем селом. Мало ли больших семейств на свете! Но дело в том, что семья была особая: мир и лад царили в семье и, стало быть, на селе. Ни ссор, ни ругани, ни драк и раздоров. Дошёл слух об этой семье до самого владыки страны. И решил он проверить, правду ли молвят люди.

Прибыл он первый раз в село, и душа его возрадовалась: кругом чистота, красота, достаток и мир. Хорошо детям, спокойно старикам. Удивился владыка. Решил узнать, как жители села добились такого лада, пришел к главе семьи. Спросил, как он добивается такого согласия и мира в семье. Тот взял лист бумаги и стал что-то писать. Писал долго. Видно, не очень силён был в грамоте. Затем передал лист владыке. Тот взял бумагу и стал разбирать каракули старика. Разобрал с трудом и удивился.

Три слова были начертаны на бумаге: Любовь, Прощение, Терпение. И в конце листа: сто раз Любовь, сто раз Прощение, сто раз Терпение.

Прочёл владыка, почесал за ухом и спросил:

- И всё?

-Да,- ответил старик,- это и есть основа жизни всякой хорошей семьи.- И, подумав, добавил:- И мира тоже».

Не удивительно, что владыка и второй, и третий раз приехал в это село.


1). Определите тему текста.

2). Определите основную мысль текста.

3). Укажите стиль речи

А) книжный; Б) научный; В) разговорный.

4).Определите тип речи

А) описание; Б) повествование; В) рассуждение.

5) Выпишите 2 порядковых, 2 количественных числительных.
Предмет: Литература, автор: NIKITASTAHII