V - дизъюнкция или операция "или" , т.е
х меньше 14 или х меньше 13 тогда
Если х=1 то
Первая часть равна единицы, т.е правда
Вторая часть тоже равна 1, т.е правда,
Тогда
А V В =1+1=1
Т.е правда
Const n=20;
var a: Array [1..n] of integer;
i,j,m,d,dm: Integer;
begin
for i:=1 to n do
a[i]:=random(100);
writeln (a);
for i:=1 to n do
begin
d:=0;
for j:=1 to a[i] do
if a[i] mod j = 0 then d:=d+1;
if d>dm then
begin
dm:=d;
m:=i
end
end;
writeln (m)
end.
Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.
Да,находятся компьютер связан с Монитором;Кровать с Одеялом;Автомобиль с <span> Коробка передач</span>