<span>Каждый символ в кодировке ASCII по 8 битов
Значит в фразе 12*8=96 битов</span>
var
n: integer;
function fibonachi(n: integer): integer;
begin
if (n = 1) or (n = 2) then fibonachi := 1
else fibonachi:= fibonachi(n - 1) + fibonachi(n - 2);
end;
begin
read(n);
writeln('F(', n, ') = ', fibonachi(n));
end.
------------------------------------------------------
var
n, i: integer;
a: array [1..3] of longint;
begin
read(n);
a[2] := 1;
a[3] := 1;
for i := 3 to n do
begin
a[1] := a[2];
a[2] := a[3];
a[3] := a[2] + a[1];
end;
writeln('F(', n, ') = ', a[3]);
end.
Сумма натуральных чисел от 20 до 30 составляет арифметическую прогрессию, состоящую из 11 членов. Первый член прогрессии: 20, разность прогрессии - 1. По формуле суммы n членов прогрессии составим программу.
<u>Решение на языке Pascal:</u>
var n: real;
begin
n := (20 + 30) / 2 * 11;
writeln(n);
end.
Иное решение: с помощью цикла просуммируем все числа от 20 до 30.
var
i, s: integer;
begin
s := 0;
for i := 20 to 30 do
s := s + i;
writeln(s);
end.
#define N 7
#define M 3
#include <iostream>
using namespace std;
int main() {
float Y[N][M];
// Ввод данных
for (int i = 0; i < N; i++)
for (int j = 0; j < M; j++)
cin >> Y[i][j];
float sum = 0, prod = 0;
for (int i = 0; i < N; i++) {
prod = 1;
for (int j = 0; j < M; j++) {
prod *= Y[i][j];
}
sum += prod;
}
cout << "Sum: " << sum << ".\n";
return 0;
}
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=Arr('Клиндухова','Кобзарь','козловский','капша','мороз Артем',
'Мороз ИЛья','Павлова','Глухих');
s.Println;
s:=s.OrderBy(t->t.ToUpper).ToArray;
s.Println
end.
