uses crt;
var
a:array[1..1000] of integer;
i,n,sum:integer;
begin
write('Введите число: ');
read(n);
for i:=1 to n-1 do
if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i;
write(sum);
end.
Ответ:..............
Объяснение:.................
Значение в ячейке B2 = 3-5 = -2
Формула в ячейке B3: = A2-$B$1
значение в B3 = 7-5 = 2
Формула в ячейке C3: =B2-$B$1
значение в ячейке C3 = -2-5 = -7
def f(n):
for i in range(2, int(n ** 0.5) + 1):
if n % i == 0: return False
return True