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.
#include <iostream>
void task1()
{
std::cout << "TASK_1\n";
for (int i = 1001; i <= 1025; i += 3)
std::cout << i << " ";
std::cout << "\n\n";
}
void task2()
{
std::cout << "task_2\n";
unsigned n;
std::cout << "n: ";
std::cin >> n;
for (int i = 0; i < n; ++i)
std::cout << "Silence is golden\n";
std::cout << "\n";
}
void task3()
{
std::cout << "task_3\n";
int sum = 0;
for (int i = 10; i <= 88; ++i)
sum += i;
std::cout << sum << "\n\n";
}
void task4()
{
std::cout << "task_4\n";
for (int i = 100; i >= 1; i -= 4)
std::cout << i << " ";
std::cout << "3 2 1\n\n";
}
int main()
{
task1();
task2();
task3();
task4();
}