1) я заполонил весь мир, я есть у каждого, ты видишь меня каждый день и может бы ть благодаря меня просыпаеншьсяи всегда общаешься. 2) Я первое удобное устройсво для переноса файлов, но меня у тебя уже сожет и не быть, потмучто я не могу знать больше пол гига( или сколько там максимум было) 3)Я бываю разная, для разногг нужны, имею так же хвост бывает даже 2м, на глаза мои моджно нажать, а нос покрутить как колесо, а пузо трёться о стол. 4) бываю офисный компютерный, журнальный и документный, а ещё рабочим. 5В меня ты многое запишешь но я не бесконечно, могу быть разной по размеру, бываю для спецаольных вещей, например для записей и учителей., 6) в меня все маленькие дети хотят, но повзраслев начинают не навидеть и в мечтах у многих спалить. орфографию лень проверять)
1 Донесет быстрее ветра Голос друга, даже если Друг – за сотни километров. (Телефон)2 Хоть по объему и мала, Информацию хранит она. Знаем мы устройство это Называется (дискета) 3 Под крышей-четыре ножки, На крыше-суп да ложки 4 Стоит дом- Кто в него войдет Тот знания приобретет (школа)
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 function IsPrime(n:integer):boolean; begin if n<4 then Result:=True else begin var found:= (n mod 2 = 0); var p:=3; while (not found) and (sqr(p)<=n) do begin found:=(n mod p = 0); p+=2 end; Result:=not found end end;
begin Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println. Where(x->IsPrime(x)).Count) end.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 procedure IsPrime(n:integer; var res:boolean); begin if n<4 then res:=True else begin var found:= (n mod 2 = 0); var p:=3; while (not found) and (sqr(p)<=n) do begin found:=(n mod p = 0); p+=2 end; res:=not found end end;
begin var a:=ArrRandom(ReadInteger('n='),1,999); a.Println; var k:=0; var prime:boolean; foreach var e in a do begin IsPrime(e,prime); if Prime then Inc(k) end; Writeln('k=',k) end.
Информационная деятельность - это совокупность действий, направленных на удовлетворение информационных потребностей граждан, юридических лиц и государства. В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных. Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.
2) Я первое удобное устройсво для переноса файлов, но меня у тебя уже сожет и не быть, потмучто я не могу знать больше пол гига( или сколько там максимум было)
3)Я бываю разная, для разногг нужны, имею так же хвост бывает даже 2м, на глаза мои моджно нажать, а нос покрутить как колесо, а пузо трёться о стол.
4) бываю офисный компютерный, журнальный и документный, а ещё рабочим.
5В меня ты многое запишешь но я не бесконечно, могу быть разной по размеру, бываю для спецаольных вещей, например для записей и учителей.,
6) в меня все маленькие дети хотят, но повзраслев начинают не навидеть и в мечтах у многих спалить.
орфографию лень проверять)