Написать программу для расчета произведения первых m четных чисел.

281

390

Посмотреть ответы 2

Ответы на вопрос:

виктор2282

Информатика

4,6(1 оценок)

i,m,n,s:integer;

function fact(a:integer):integer;

var l:integer;

begin

l:=1;

for i:=2 to a do

l:=l*i;

fact:=l;

end;

begin

read(m);

readln(n);

s:=0;

for i:=m to n do

if i mod 2=0

then s:=fact(i)+s;

writeln(‘Suma: ‘,s);

end.

nasyapest

Информатика

4,4(63 оценок)

Var a,b,c,d: real; procedure p(a,b,c: real; var d: real); begin d: =b*b-4*a*c; end; begin readln(a,b,c); p(a,b,c,d); if d< 0 then writeln('корней нет') else if d=0 then writeln('x = ',-b/(2*a): 3: 1) else writeln('x1 = '+d)/(2*a): 3: 1,' x2 = '-d)/(2*a): 3: 1); end. пример: 2 3 1 x1 = -0.5 x2 = -1.0