Ответ:
13635= 1 × 10000 + 3 × 1000 + 6 × 100 + 3 × 10 + 5
<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
найти пару носков
взять один носок, взять второй носок
если носки составляют пару, то ура
если не пара, то опять берем носки
найти пару взаимно простых чисел
взять одно число
взять второе число
Если они взаимно простые , то ура
иначе опять ищем числа
Paskall:
var a:array[1..5[ of integer;
i, min:integer;
begin
writeln('Введите элементы массива (5 целых чисел) в одной строке и нажмите <Enter>');
for i:=1 to 5 do
read(a[i]);
min:=a[1];
for i:=2 to 5 do
if(a[i]<min) then
min:=a[i];
writeln('Минимальный элемент массива: ', min);
end.
8192 бит<span> = 8 килобит </span>8192 бит<span> = 1 </span>килобайт
