Меню

Запрос малина 2900 клубника 1700 3000 найдено



Пусть по запросу малина было найдено 2900 страниц, по запросу клубника — 1700 страниц, по запросу малина | клубника — 3000 страниц. тогда сколько страниц было найдено по запросу клубника & малина ? *

& — логическое и, | — логическое или. подсказка: решать с использованием кругов эйлера​

Ответы 8

по запросу клубника & малина найдено 1600 страниц.

решение в прикрепленном файле.

type
ty=array[1..n] of integer;

procedure push(var ar:ty);
var
i,c:integer;
begin
c:=ar[n];
for i:=n downto 2 do
ar[i]:=ar[i-1];
ar[1]:=c;
end;

begin
randomize;
writeln(‘Enter K:’);
readln(k);
writeln(‘First array:’);
for i:=1 to n do
begin;
ar[i]:=random(10);
write(ar[i]:4);
end;
for i:=1 to k do
push(ar);
writeln;
writeln(‘Final array:’);
for i:=1 to n do
write(ar[i]:4);
end.
2)var
a,i,b,r,n:integer;
s,se:string;

procedure preob(var a,b,n:integer; var se:string);
begin
repeat
b:=a mod n;
a:=a div n;
str(b,se);
s+=se;
until (a Удалить ответ +1 балл

Источник

Пусть по запросу малина было найдено 2900 страниц, по запросу клубника — 1700 страниц, по запросу малина | клубника — 3000 страниц. тогда сколько стра.

Пусть по запросу малина было найдено 2900 страниц, по запросу клубника — 1700 страниц, по запросу малина | клубника — 3000 страниц. тогда сколько страниц было найдено по запросу клубника & малина ? *

& — логическое и, | — логическое или. подсказка: решать с использованием кругов эйлера​

Ответы

по запросу клубника & малина найдено 1600 страниц.

решение в прикрепленном файле.

type
ty=array[1..n] of integer;

procedure push(var ar:ty);
var
i,c:integer;
begin
c:=ar[n];
for i:=n downto 2 do
ar[i]:=ar[i-1];
ar[1]:=c;
end;

begin
randomize;
writeln(‘Enter K:’);
readln(k);
writeln(‘First array:’);
for i:=1 to n do
begin;
ar[i]:=random(10);
write(ar[i]:4);
end;
for i:=1 to k do
push(ar);
writeln;
writeln(‘Final array:’);
for i:=1 to n do
write(ar[i]:4);
end.
2)var
a,i,b,r,n:integer;
s,se:string;

Читайте также:  Кустарник для осушения участка

procedure preob(var a,b,n:integer; var se:string);
begin
repeat
b:=a mod n;
a:=a div n;
str(b,se);
s+=se;
until (a max then max: =a[i] writeln(max);в итоге выведется последнее значение, которое было присвоено переменной max.

Источник

Adblock
detector