Решил создать себе сайт но он не как не может вырасти в поисковой выдаче, ссылочная масса вроде как есть но результатов нет( Соответственно падает подозрение что что-то не так сделано с внутренней оптимизацией. Мой сайт с фильмами https://vokinohd.site ?
i, kol: Integer;
Begin
for i := 1 to 10 do read(a[i]);
kol := 0;
for i := 1 to 10 do
if a[i] mod 2=0 then
begin
kol := kol + 1;
write(a[i],' ');
end;
writeln;
writeln(kol);
End.
2. var a: array[1..10] of integer;
i, kol: Integer;
Begin
for i := 1 to 10 do read(a[i]);
kol := 0;
for i := 1 to 10 do
if a[i] > 9 then
begin
kol := kol + 1;
write(a[i],' ');
end;
writeln;
writeln(kol);
End.
3. var a: array[1..10] of integer;
i: Integer;
Begin
for i := 1 to 10 do read(a[i]);
for i := 1 to 10 do
if a[i] mod 2=0 then write(a[i],' ');
for i := 1 to 10 do
if a[i] mod 2=1 then write(a[i],' ');
End.
4. var a: array[1..10] of integer;
i, r: Integer;
Begin
for i := 1 to 10 do read(a[i]);
i := 1;
while i < 10 do
if a[i+1] < a[i] then begin
r := a[i+1];
a[i+1] := a[i];
a[i] := r;
i := 1;
end else i := i + 1;
for i := 1 to 10 do
if a[i] mod 2=0 then write(a[i],' ');
for i := 1 to 10 do
if a[i] mod 2=1 then write(a[i],' ');
End.
5. var a: array[1..10] of integer;
i, kol: Integer;
Begin
for i := 1 to 10 do read(a[i]);
for i := 1 to 10 do
if a[i] mod 10 = 5 then kol := kol + 1;
writeln(kol);
End.
7 9 10 11
Объяснение:
НЕ (число < 10) ИЛИ НЕ (число чётное)
⇒ (число ≥ 10) ИЛИ (число нечетное)
7 8 9 10 11
Если между выражениями стоит значение ИЛИ, то это значит, что может выполняться либо одно, либо другое. Если выполняется либо одно, либо другое, то истинно все выражение.
Возьмём сразу все нечетные числа, т. к. выражение с ними будет истинно.
7 9 11
Остались: 8 10
Осталось найти числа, которые не попали в нечетные и ≥ 10
Сюда попадает только 10
⇒ высказывание будет истинно при значениях: 7 9 10 11