Дом И Население Москвы дом имеет свой систему к примеру электро система проводятся провода. Население Москвы состоят из взрослых которые работают это система города
Это в экселе?? произведение =<span>3 628 800</span>
PascalABC.Net версия 3.2
begin
var a:=ArrRandom(10,0,100); a.Println;
Writeln('Количество пар равно ',
a.Pairwise.Where(x->((x.Item1+x.Item2) mod 6<>0)
and (x.Item1*x.Item2<1000)).Count)
end.
Пример работы программы
84 11 3 74 61 62 52 97 99 35
Количество пар равно 3
Пояснения.
ArrRandom создает нужный массив, Println выводит его на экран.
Расширение PairWise порождает последовательность из пар соседних элементов,
Where образует фильтр этих пар с необходимыми условиями, а Count подсчитывает количество пар, прошедших фильтр.
//Pascal ABC.NET 3.2 сборка 1318
Var
f:text;
n:integer;
s:string;
procedure VoTeRaz(f:text;n:integer;s:string);
begin
writeln('Было:');
assign(f,'Input.txt');
reset(f);
while not(Eof(f)) do
begin
read(f,n);
write(n,' ');
if n>7 then n:=n*(n div 7);
s:=s+inttostr(n)+' ';
end;
delete(s,length(s),1);
close(f);
assign(f,'Input.txt');
rewrite(f);
write(f,s);
close(f);
writeln;
writeln('Стало:');
write(s);
writeln;
end;
function VoTeDva(f:text;n:integer;s:string):integer;
begin
writeln('Было:');
assign(f,'Input.txt');
reset(f);
while not(Eof(f)) do
begin
read(f,n);
write(n,' ');
if n>7 then n:=n*(n div 7);
s:=s+inttostr(n)+' ';
end;
delete(s,length(s),1);
close(f);
assign(f,'Input.txt');
rewrite(f);
write(f,s);
close(f);
writeln;
writeln('Стало:');
write(s);
writeln;
VoTeDva:=0;
end;
begin
VoTeRaz(f,n,s);
VoTeDva(f,n,s);
end.
Начальное содержимое Input.txt:
81 5 6
Пример работы программы:
Было:
81 5 6
Стало:
891 5 6
Было:
891 5 6
Стало:
113157 5 6
Ответ:
Умный дом - это дом который делает за тебя работу по дому. А интернет вещей-это какой-нибудь интернет-магазин типа алиэкспресс. Остальные ответы поищи в интернете
Объяснение:
