Function IsPrime(x: integer): boolean;
var s, n: integer;
begin
Result := x > 1;
s := Trunc(Sqrt(x)) + 1;
n := 1;
while (n < s) and Result do begin
n := n + 1;
Result := Result and (x mod n > 0);
end;
end;
var x, s: integer;
begin
readln(x);
if IsPrime(x) then
writeln('prime')
else
writeln('composite');
<span>end.</span>
Объяснение:
s=0
for i in range (-12 до +12):
if 2%2 == 0:
s=i+s
print (s)
Был сначала на полном именовании файла, затем поднялся на D:\Фото\2015, и создал подкаталог 7 класс.Теперь полное именование файла: D:\Фото\2015\7 класс.
Затем он переместил файл общая.jpg.
Ответ:D:\Фото\2015\7 класс\общая.jpg.