Ответ:
14638(десячичная система) -
пронумеруем разряды
4 3 2 1 0
1 4 6 4 8
теперь запишем выражение
14638(десячичная система) = 1 х 10^4 + 4 х 10^3 + 6 x 10^2 + 4 x 10^1 + 8 x 10^0
Объяснение:
Program qq;
uses crt;
var A:array [1..20] of integer; i: integer;
begin
for i:=1 to 20 do
readln (a[i]); //ввод массива. Не указали откуда дан массив, так что введем его через enter
for i:=1 to 20 do
if a[i]<10 then
a[i]:=0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль
for i:=1 to 20 do
write (a[i], ' '); //Вывод массива на экран
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var n:=ReadInteger('Введите четырехзначное натуральное число:');
var p:=1;
while n>0 do begin
p:=p*(n mod 10);
n:=n div 10
end;
Writeln('Произведение цифр числа равно ',p)
end.
Var x, a, b, c, d: integer;
begin
readln(x, a, b, c, d);
if ((x > a) and (x < b)) then
writeln('[', a, '; ', b, ']');
if ((x > c) and (x < d)) then
writeln('[', c, '; ', d, ']');
<span>end.
Вот так, интервалы - они и в Африке интервалы)</span>