Uses Crt; var s,i:integer; begin ClrScr; i:=0; s:=0; While i<10 do Begin i:=i+2; s:=s+i; end; writeln('Сумма четных = ',s); i:=1; s:=1; While i<9 do Begin i:=i+2; s:=s*i; end; writeln('Произведение нечетных = ',s); readln; end.
// PascalABC.NET 3.0, сборка 1088 begin Writeln('Сумма четных от 1 до 10 равна ', Range(2,10,2).Sum); Writeln('Произведение нечетных от 1 до 10 равно ', Range(1,10,2).Aggregate((x,y)->x*y)) end.
Результат выполнения программы: Сумма четных от 1 до 10 равна 30 Произведение нечетных от 1 до 10 равно 945
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=Range(1,10); Writeln(s.Aggregate(1,(p,q)->p*q)); Writeln('S=',s.Where(k->k.IsEven).Sum,', П=', s.Where(k->k.IsOdd).Aggregate(1,(p,q)->p*q)); Writeln('S2=',s.Select(k->k*k).Sum) end.
Const N = 10; var a, S1, S2: Integer; i, Q1, Q2: Byte; begin S1 := 0; Q1 := 0; S2 := 0; Q2 := 0; writeln('Введите ', N, ' чисел:'); for i := 1 to N do begin read(a); if a < 0 then begin S1 := S1 + a; inc(Q1) end; if a > 0 then begin S2 := S2 + a; inc(Q2) end; end; writeln; if Q1 > 0 then begin writeln('Сумма отрицательных чисел: ', S1); writeln('Количество отрицательных: ', Q1) end else writeln('Отрицательных нет'); if Q2 > 0 then begin writeln('Сумма положительных чисел: ', S2); writeln('Количество положительных: ', Q2) end else writeln('Положительных нет') end.
Program ; var A: array [-10..10] of integer; n, i, b, c : integer; begin writeln('Введите количество чисел'); readln(n); b:=0; for i := 1 to n do readln(A[i]); b:=0; c:=1; for i := 1 to n do begin if A[i] mod 2 = 0 then b:=b+A[i] else c:=c*A[i] end; writeln('Это произведение ' , c); writeln('Это сумма ' , b); end.
Program z1; var s,p,i:integer; begin s:=0; p:=1; for i:= 1 to 10 do if i mod 2 =0 then s:=s+i else p:=p*i; writeln('сумма четных',s); writeln('произведение нечетных',p); end.
Var i, s p: integer; begin s:=0; p:=1; for i:=1 to 10 do if i mod 2=0 then s:=s+i else p:=p*i; Writeln('сумма четных чисел=', s); Writeln('произведение нечетных чисел=', p); End.
Var i, sum:integer; proz:longint; begin for i:=10 to 26 do begin if i mod 2 = 0 then sum:=sum+i else if i mod 2 <>0 then proz:=proz*i; end; writeln('summa=',sum); writeln('proizvedenie=',proz); end.
Var P,i,S:integer; Begin P:=1; For i:= 2 to 10 do P:=P*i; WriteLn('1: ',P); P:=1; S:=0; For i:= 1 to 10 do if i mod 2 = 0 then S:=S+i else P:=P*i; WriteLn('2:'); WriteLn('S = ',S); WriteLn('P = ',P); S:=0; For i:= 1 to 10 do S:=S+i*i; WriteLn('3: '); WriteLn('S = ',S); End.
var s,i:integer;
begin ClrScr;
i:=0;
s:=0;
While i<10 do
Begin i:=i+2;
s:=s+i;
end;
writeln('Сумма четных = ',s);
i:=1;
s:=1;
While i<9 do
Begin i:=i+2;
s:=s*i;
end;
writeln('Произведение нечетных = ',s);
readln;
end.
void main(void){
int s = 0, m = 1;
for(int i = 1; i <= 10; i++){
if(i % 2 == 0){
s += i;
}
else{
m *= i;
}
}
cout<<"Sum = "<<s<<". Multiply = "<<m<<endl;
}
begin
Writeln('Сумма четных от 1 до 10 равна ',
Range(2,10,2).Sum);
Writeln('Произведение нечетных от 1 до 10 равно ',
Range(1,10,2).Aggregate((x,y)->x*y))
end.
Результат выполнения программы:
Сумма четных от 1 до 10 равна 30
Произведение нечетных от 1 до 10 равно 945
// Внимание! Если программа не работает, обновите версию!
begin
var s:=Range(1,10);
Writeln(s.Aggregate(1,(p,q)->p*q));
Writeln('S=',s.Where(k->k.IsEven).Sum,', П=',
s.Where(k->k.IsOdd).Aggregate(1,(p,q)->p*q));
Writeln('S2=',s.Select(k->k*k).Sum)
end.
Результат
3628800
S=30, П=945
S2=385
8÷6÷4÷2=0.16666
var a, S1, S2: Integer;
i, Q1, Q2: Byte;
begin
S1 := 0; Q1 := 0;
S2 := 0; Q2 := 0;
writeln('Введите ', N, ' чисел:');
for i := 1 to N do
begin
read(a);
if a < 0 then
begin
S1 := S1 + a;
inc(Q1)
end;
if a > 0 then
begin
S2 := S2 + a;
inc(Q2)
end;
end;
writeln;
if Q1 > 0 then
begin
writeln('Сумма отрицательных чисел: ', S1);
writeln('Количество отрицательных: ', Q1)
end
else
writeln('Отрицательных нет');
if Q2 > 0 then
begin
writeln('Сумма положительных чисел: ', S2);
writeln('Количество положительных: ', Q2)
end
else
writeln('Положительных нет')
end.
var
A: array [-10..10] of integer;
n, i, b, c : integer;
begin
writeln('Введите количество чисел');
readln(n);
b:=0;
for i := 1 to n do
readln(A[i]);
b:=0;
c:=1;
for i := 1 to n do
begin
if A[i] mod 2 = 0 then
b:=b+A[i]
else
c:=c*A[i]
end;
writeln('Это произведение ' , c);
writeln('Это сумма ' , b);
end.
var s,p,i:integer;
begin
s:=0;
p:=1;
for i:= 1 to 10 do
if i mod 2 =0 then s:=s+i
else p:=p*i;
writeln('сумма четных',s);
writeln('произведение нечетных',p);
end.
p:=1;
for i:=10 to 26 do
if i mod 2 = 0 then p:=p*i else s:=s+i
var s,i:integer;
begin
ClrScr;
i:=0;
s:=0;
While i<10 do
Begin
i:=i+2;
s:=s+i;
end;
writeln('Summa chetnih ot 1 do 10 = ', s);
i:=1;
s:=1;
While i<9 do
Begin
i:=i+2;
s:=s*i;
end;
writeln('Proizv nechetnih ot 1 do 10 = ', s);
readln;
end.
begin
s:=0;
p:=1;
for i:=1 to 10 do
if i mod 2=0 then s:=s+i else p:=p*i;
Writeln('сумма четных чисел=', s);
Writeln('произведение нечетных чисел=', p);
End.
proz:longint;
begin
for i:=10 to 26 do
begin
if i mod 2 = 0 then sum:=sum+i else if i mod 2 <>0 then proz:=proz*i;
end;
writeln('summa=',sum);
writeln('proizvedenie=',proz);
end.
P,i,S:integer;
Begin
P:=1;
For i:= 2 to 10 do
P:=P*i;
WriteLn('1: ',P);
P:=1;
S:=0;
For i:= 1 to 10 do
if i mod 2 = 0 then S:=S+i
else P:=P*i;
WriteLn('2:');
WriteLn('S = ',S);
WriteLn('P = ',P);
S:=0;
For i:= 1 to 10 do
S:=S+i*i;
WriteLn('3: ');
WriteLn('S = ',S);
End.