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.
Для разделения целой и дробной частей десятичной дроби использовать запятую.
Вводить отрицательные числа со знаком минус или взять число в скобки.
Для обозначения процентов после числа вводить символ "%".
Обычную дробь нужно вводить, указывая и отделяя её от дробной пробелом.
Обозначение единиц измерения после чисел не вводится, только если это не денежные единицы.
перевод:
Для поділу цілої та дробової частин десяткового дробу використовувати кому.
Вводити негативні числа зі знаком мінус або взяти число в дужки.
Для позначення відсотків після числа вводити символ "%".
Звичайну дріб потрібно вводити, вказуючи і відокремлюючи її від дробу прогалиною.
Позначення одиниць виміру після чисел не вводиться, тільки якщо це не грошові одиниці.
Поделитесь своими знаниями, ответьте на вопрос:
4^750-4^10 = 4^750 - 4^11 + 4^11 - 4^10 = 4^750 - 4^11 + 3 * 4^10 = 4^750 - 4^12 + 4^12 - 4^11 + 3*4^10 = 4^750 - 4^12 + 3*4^11 + 3*4^10 = ... = 4^750 - 4^750 + 3*4^749 + 3*4^748+...+3*4^10 = 3*4^749 + 3*4^748+...+3*4^10.
Таким образом, исходное число представили в виде суммы степеней, умноженных на коэффициенты при них, что позволяет перевести число в 4-ичную систему счисления.
4^1550+4^750-4^10 = 4^1550 + 0*4^1549 + ... + 0 * 4^750 + 3*4^749 + 3*4^748+...+3*4^10 + 0*4^9 + ... + 0*4^0.
Осталось посчитать количество коэффициентов, равных 0.
(1549 - 750 + 1) + (9 - 0 + 1) = 810.