Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
begin
k: =1;
sumf: =1; {так как для i1 sum=1}
for i: =1 to n do (n-колличество членов, вводится с клавиатуры)
k: =k*i;
f: =k;
sumf: =sumf+1/f;
end;
(while)
function sumw(i: integer): real;
i: =1;
sumw: =1;
while i< =n do
sumw: =sumw+1/f;
(repeat)
function sumr(i: integer): real;
sumr: =1;
repeat
sumr: =sumr+1/f;
i: =i+1
until i< n;
program xxx;
var a, b, s : real;
r, p, d : real;
write ('введите певрое число- ');
readln (a);
write ('введите второе число- ');
readln (b);
s: = a+ b;
r : = a - b;
p : = a* b;
d : = a/b;
writeln ('сумма =', s);
writeln ('разность =', r);
writeln ('произведение =', p);
writeln ('частное = ', d);
readln
end.
Популярные вопросы