Задача 1. ДАНО натуральне число N. Скласти програму для обчислення суми всіх елементів послідовності - id1088657220200524 от 123443123 24.05.2020 00:36

Question

Информатика: Задача 1. ДАНО натуральне число N. Скласти програму для обчислення суми всіх елементів послідовності 1+1/2+1/3+1/4+...+1/N Приклад. Якщо ввести N=2 то S(сума)=1,5 оскільки 1+1/2=1,5 Задача 2*. ДАНО натуральне число N. Скласти програму для обчислення всіх елементів послідовності 1-2+3-4+5-...+N Приклад. Якщо ввести N=7 то S(сума)=4; Якщо ввести N=10 то S(сума)=-5;

123443123 · Accepted Answer

1.
var a, b, s: real;
begin
readln(a, b);
s:=s*b;
writeln(s);
end.

2.
var a, b, c, d, s: real;
begin
readln(a, b, c, d);
s:=a+b+c+d;
writeln(s);
end.

3.
var a, b, c, mult: real;
begin
readlb(a, b, c);
mult:=a*b*c;
writeln(mult);
end.

4.
var a, h, s: real;
begin
readlb(a, h);
s:=a*h;
writeln(s);
end.

5.
var a, b, o: real;
begin
readln(a, b);
o:=a/b;
writeln(o);
end.

6.
const pi=3.14;
var r, l: real;
begin
readln(r);
l:=2*pi*r;
writeln(l);
end.

7.
const pi=3.14;
var r, s: real;
begin
readln(r);
s:=pi*sqr(r);
writeln(s);
end.

8.
var a, s: real;
begin
readln(a);
s:=sqr(a);
writeln(s);
end.

9.
var a, h, s: real;
begin
readln(a, h);
s:=a*h;
writeln(s);
end.

10. хз что это.

MOGZ ответил