Ошибка в задании недопустимых исходных данных. Аргументы функций ln() и sqrt() не должны быть отрицательными.
<span>n = int(input("N = "))
if n > 10<span>:
</span></span>----<span>s = <span>0
</span></span>----<span>for i in range(10,n,5)<span>:
</span>----</span>----<span>s += i
</span>--------<span>print(i,end=" ")
print("\nSuma = ",s)</span>
Для начала складываем 4+8 и получаем 12 или по 5 горшков.
А потом меняем большие горшки на маленькие.
Один большой равен двум маленьким и наоборот два маленьких равны одному большому.
P.S.:ну во как-то так.думаю что ты поймешь)))
DIM p AS LONG
p = 1
FOR i = 5 TO 18 STEP 5
p = p * i
NEXT i
PRINT p
Ответ:
Объяснение:
После строки if k=3 then Writeln(f2,x);
нужно поставить k:=0;
Var f1,f2: text;
i, k, x: integer;
Begin
Assign(f1, 'file1.txt');
reset(f1);
Assign(f2, 'file2.txt');
Rewrite(f2);
k:=0;
While not eof(f1) do
Begin
Readln(f1,x);
writeln(x);
for i:=2 to x do
If (x mod i=0) and (i mod 2=0) then inc(k);
if k=3 then Writeln(f2,x);
k:=0;
End;
Close(f1);
Close(f2);
Writeln('Второй файл содержит числа:');
Reset(f2);
While not eof(f2) do
Begin
Readln(f2,x);
Writeln(x);
End;
readln;
Close(f2);