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

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;

Изучение схемы метро:

по восприятия - визуальная, по форме представления - графическая (текстовая), по назначению - массовая, по значению - ценная, достоверная, актуальная, по истинности - истинная.

Объяснение:

Визуальная - воспринимается органами зрения; графическая - в виде изображения, графиков; массовая - содержит тривиальные сведения и понятия понятны большей части социума; ценная - полезность информации, достоверная - получена без искажения (с надёжного источника), актуальная - ценная в данный момент; истинная - имеет верные понятия, соответствует правде.

Var a: array  [1..20] of integer;     i: integer;     sum: integer; begin   sum: =0;   for i: =1 to 20 do begin                    a[i] : = random(20);                     write(a[i],' ');                     sum: = sum+a[i];               end;                   writeln();   writeln('сумма всех элементов : ',sum);   end.