1. Разработать и написать алгоритм определения S = b(c + d)/(k − 1). 2. Составить...

Question

1. Разработать и написать алгоритм определения
S = b(c + d)/(k − 1).

2. Составить алгоритм вычисления х!= 1*2*3*... *х.

Comments

на каком языке?

Answer 1

Program p17;
var b,c,d,k,S: real;
begin
writeln ('Введите b: ');
readln (b);
writeln ('Введите c: ');
readln (c);
writeln ('Введите d: ');
readln (d);
writeln ('Введите k: ');
readln (k);S:=b*(c + d)/(k - 1);
writeln (S);
end.

Program p17;
var x,S:integer;
begin
writeln ('Введите x: ');
S:=1;
readln (x);
while x>0 do
begin
S:=S*x;
x:=x-1;
end;
writeln (S);
end.