1)
a = list(map(float,input().split()))
b = 1
for i in range (len(a)):
if a[i] % 2 != 0:
b *= i**2
k += 1
print (b**(1/k))
2)
a = list(map(float,input().split()))
for i in range (len(a)):
print (a[i],end=' ')
if abs(a[i]) > 10:
a[i] = 0
print ('')
for i in range (len(a)):
print (a[i],end=' ')
Это сложно.
Но можно решить.
Через 5 мин отвечу.
Ну всё пока
Ответ:uses crt;
var i:integer;
r:real;
begin
for i:=10 to 22 do
writeln(i,' дюйм = ',i*2.54,' см');
end.
Объяснение:
<span>Составленный в определённом порядке перечень каких-н. однородных предметов (книг, экспонатов, товаров и т. п.).</span>
<em>// PascalABC.NET 3.2, сборка 1427 от 24.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Pow(x,y:BigInteger):BigInteger;
begin
Result:=x;
for var i:=int64(2) to int64(y) do Result*=x
end;
begin
var x,y:integer;
Write('Введите натуральные х и у: '); Read(x,y);
if (x<=0) or (y<=0) then begin
Writeln('Неверный ввод'); Exit
end;
if x=1 then Writeln('Результат: ',y+1)
else begin
var x1:=Range(2,x).Aggregate(BigInteger(1),(a,b)->a*b);
Writeln('Результат ',Pow(x,y)+Pow(y,x1))
end
end.
<u>Пример</u>
Введите натуральные х и у: 5 8
Результат 2348542582773833227889480596789337027375682548908319870707290971532209025114608443463698998384768703032325601