Функии обучать детей до шк и шк возраста д переходы в дриугие классы/отделенийа садика.Дизайн разукрасить,доббавить больше функий, и сделать отдельную ссылку длйа перехода.Интерфейс добавить игры длйа отдыха детйам (сори йа не работает)
Var n,S,P:integer;
Begin
Write('n = ');ReadLn(n);
P:=1;
S:=0;
While n > 0 do
Begin
P:=P*(n mod 10);
S:=S+n mod 10;
n:=n div 10
End;
WriteLn('S - P = ',S-P)
End.
Музыкант дружил с Андреевым, сейчас дружит с Ивановым, значит, он не Андреев и не Иванов. Кроме того, Андреев никогда не был знаком с Петровым ,но был дружен с музыкантом, значит ,Петров-тоже не музыкант.Поэтому музыкант Сидоров.
Иванов и Андреев-не солисты хора, так как были на его концерте, поэтому знаком с ним.Значит, Андреев- не художник,Андреев-танцор
Для Ивана остался последний вариант, Иванов-художник
<span>• корпус компьютера с блоком питания мощностью 400 В — 2480 руб.;
</span><span>• процессор Socket-АМЗ AMD Phenom II Х4, 3,5 ГГц — 5510 руб.;
</span><span>• материнская плата Socket-АМЗ ASUSTeK PCI-E+GbLAN SATA 4DDR-III — 3300 руб.
</span><span>• модули оперативной памяти объемом 4 Гбайта — 1330 руб.;
</span><span>• модули оперативной памяти объемом 4 Гбайта — 1330 руб.;
</span><span>• жесткий диск объемом 500 Гбайт — 3100 руб.;
• жесткий диск объемом 1 Тбайт — 3570 руб.;
</span><span>• видеокарта с объемом видеопамяти 1 Гбайт — 2700 руб.;
</span><span>• звуковые колонки 5 В — 730 руб.;
Звуковая карта будет интегрирована в материнской её достаточно.
</span><span>• сетевая карта 10/100/1000 Мбит/с — 570 руб.;
</span><span>• привод CD-RW/DYD-RW — 970 руб.;
</span><span>• монитор LCD, диагональ 19 дюймов — 3600 руб.;
</span><span>• мышь оптическая — 200 руб.;
• клавиатура — 180 руб.;
</span>• принтер лазерный — 4630 руб.;
В принципе этого достаточно.<span />
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var r:=Range(100,1000);
Writeln('Сумма четных: ',r.Where(x->x.IsEven).Sum);
Writeln('Произведение нечетных: ',
r.Where(x->x.IsOdd).Aggregate(BigInteger(1),(x,y)->x*y))
end.
<u>Результат</u>
Сумма четных: 248050
Произведение нечетных: 36966544481545882391823230067805385433230065368829576574915631961875951438749314875520891958773465683198309929571713227368698968335498279329362186811130459340459701708143628528300666430241499963363995156875472920823879073796270530674091365457301367694608396460427864525856348256854709381753098272866558646536629626322781887765489939455189437187612366035802205337138797639784505362746964525946343706655765053639253274426077913592271079783658672906924798929301517243147811305368104203869922649498420017010079861449087671086945458864075701800348571856363660191891005745473487285185093263826285985161291672009840401500648116978749473368664914039649974635642316727953613512087059513022266150683907968562889468475751462634414790601916842157202699257750637933476610759209266207736659346632336154863491811161547515391373090783158239924403943495793328563207072814564054863234093687597907376741512012744430337566475185020879095658879920498365311358232252688878619532793045747038932448911025039177711271956296398164256480905110102487991832871736322981910580412208741937654427051439114361588088330674072568693330290186189385005707253104742148887065855866777951156097027659674751631779798799470881931483745574951171875