12>10,но 12<12 неверно, значит
n:=12-1
что равно 11
Для обозначения файлов используют имена и расширения
Обозначения:
В=ДЕЛ(х,12) С=ДЕЛ(х,18) А=ДЕЛ(х,А)
------------------------------------------------------
(¬В+¬С)→ ¬А=1
В*С+¬А=1 (формула: А+¬А=1)
А=В*С -----> Событие А: "х делится на 12 и на 18" - это НОК{12,18}
НОК{12,18} =36
ответ 36
1)
uses crt;
var x,y,pr:integer;
begin
read(y,x);
pr:=1;
repeat
pr:=pr*y;
x:=x-1;
until x=0;
write(pr);
end.
2)
uses crt;
var
a:array[1..10] of integer;
pr,i,k:integer;
begin
for i:=1 to 10 do
read(a[i]);
clrscr;
pr:=1;
for i:=1 to 10 do
begin
if a[i]<0 then k:=k+1;
if a[i]>0 then pr:=pr*a[i];
end;
writeln('Исходный массив: ');
for i:=1 to 10 do
write(a[i],' ');
writeln;
if k<>0 then writeln('Отрицательных элементов: ',k) else writeln('Отрицательных элементов нет');
write('Произведение положительных элементов равно: ',pr);
end.