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.
Наполнить 5 литров, потом перелить все в 3-ех литровую банку. Остается два литра. Повторить, и будет 4 литра, тогда нужна еще одна емкость, которой нет. Не знаю, что еще можно придумать
#include<iostream>
using namespace std;
int main(){
int year;
cin>>year;
if(year%4==0 && year%100!=0 && year%400==0)cout<<"Высокосный год\n";
else cout<<"Не высокосный год\n";
return 0;
}
V0 = 147,69 Мбайт = 147,69*1024 Кбайт
Vc = 1117,96 Кбайт
Кс = (Vc/V0)*100%
Кс = 1117,96/(147,69*1024)*100% = 0,0074*100% = 0,74%