var i,n,b:integer;
a:array [1..100] of integer;
begin
Randomize;
write('Сколько элементов в массиве: ');
readln(n);
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
b:=b+a[i];
end;
writeln(' ');
write('Сумма всех элементов массива: ',b);
end.
Ответ:
Язык: Питон
Объяснение:
a = int(input())
for i in range(2, a + 1):
flag = True
for f in range(2, i):
if i % f == 0:
flag = False
break
if flag:
print(i, end=' ')
Var a,c1,c2 integer;
b: bool;
begin
b:=true;
writeln("Введите четырехзначное число ");
readln(a);
c1:=a mod 10;
a:=a div 10;
while(a>0) do begin
c2:=a mod 10;
a:=a div 10;
if c1 <> c2 then
b:= false;
end;
if b=true then writeln("Все цифры данного числа равны")
else writeln("Цифры данного числа различны");
end.
В старшем разряде могут быть все цифры, кроме 0, т.е. 5 штук.
В младшем разряде должны быть цифры, формирующие нечетность итогового числа. Это 1,3, 5. Всего 3 штуки.
В остальных разрядах могут любые цифры из названных в условии.
Итого имеем: 5*6*6*6*3 = ?
Сами перемножите?