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)
a, i : integer;
a := 1;
for i := 1 to 8 do
a := a * 2;
writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');
end;
3)
n, i : integer;
x, s : real;
read (n, x);
for i := 1 to n do
s := s + sin (i * x);
4)
n, a, r, i : integer;
r := 1;
read (a, n);
for i := 1 to n do r := r * a;
writeln (r);
#include <cmath>
using namespace std;
long Amt(int *hours) {
long p=1;
for(int i=0;i<*hours/3;i++) p*=2;
return(p);
}
int main() {
setlocale(LC_ALL, "RUS");
int i,T;
cout<<"Введите предельное количество часов: ";
cin>>T;
for(i=3;i<=T;i+=3)
{cout<<"Время, час "<<i<<", амеб: "<<Amt(&i)<<endl;}
system("PAUSE");
}
Тестовое решение:
Введите предельное количество часов: 60
Время, час: 3, амеб: 2
Время, час: 6, амеб: 4
Время, час: 9, амеб: 8
Время, час: 12, амеб: 16
Время, час: 15, амеб: 32
Время, час: 18, амеб: 64
Время, час: 21, амеб: 128
Время, час: 24, амеб: 256
Время, час: 27, амеб: 512
Время, час: 30, амеб: 1024
Время, час: 33, амеб: 2048
Время, час: 36, амеб: 4096
Время, час: 39, амеб: 8192
Время, час: 42, амеб: 16384
Время, час: 45, амеб: 32768
Время, час: 48, амеб: 65536
Время, час: 51, амеб: 131072
Время, час: 54, амеб: 262144
Время, час: 57, амеб: 524288
Время, час: 60, амеб: 1048576
Для продолжения нажмите любую клавишу . . .
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.