1)
var
s : real;
i, n : integer;
begin
s := 0;
read (n);
for i := 1 to n do s := s + 1 / i;
writeln (s);
end.
2)
var
a, i : integer;
begin
a := 1;
for i := 1 to 8 do
begin
a := a * 2;
writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');
end;
end.
3)
var
n, i : integer;
x, s : real;
begin
s := 0;
read (n, x);
for i := 1 to n do
s := s + sin (i * x);
writeln (s);
end.
4)
var
n, a, r, i : integer;
begin
r := 1;
read (a, n);
for i := 1 to n do r := r * a;
writeln (r);
end.
#Python
#ответ B:
n = 1
num = []
while n != 0:
n = int(input("Введите число : "))
if n != 0:
num.append(n)
num3 = []
for n in num:
if int(n) % 3 == 0:
num3.append(n)
print("Макс :", max(num3), " Мин :", min(num3))
#ответ C:
n = 1
num = []
while n != 0:
n = int(input("Введите число : "))
if n != 0 and len(str(n)) == 2:
num.append(n)
num6 = []
for n in num:
if int(n) % 10 == 6:
num6.append(n)
if num6 == True:
print("Макс : ", max(num6))
else:
print("Нет такого число!")
Объяснение: