<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m,n:integer;
Write('Введите n и m: '); Read(n,m);
Writeln('Сумма n+...+m равна ',Range(n,m).Sum);
Writeln('Произведение n*...*m равно ',
Range(n,m).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
Введите n и m: 6 27
Сумма n+...+m равна 363
Произведение n*...*m равно 90740578753486268006400000
Вентиляция<span> – </span>это<span> регулируемый воздухообмен, осуществляемый с целью создания в </span>помещениях<span>жилых, общественных и промышленных зданий воздушной среды, благоприятной для здоровья и трудовой деятельности человека, а также для технологических целей. </span>Вентиляционные<span> системы – совокупность мероприятий и/или технических устройств, обеспечивающих воздухообмен.</span>
Var a,c,l,w1,w2,w3 : longint;begin readln(a,c); w1:=0; w2:=0; w3:=0; l:=a mod 10; while a>0 do begin if a mod 10=c then w1:=w1+1; if a mod 10=l then w2:=w2+1; if a mod 2=0 then w3:=w3+1; a:=a div 10; end; writeln(w1,' ',w2,' ',w3);<span>end.
</span>
var s, i: integer;
begin
s:=0;
for i:=0 to 1000 do if i mod 2 = 0 then s:=s+i;
write(s);
end.