#include < iostream>
using namespace std;
int main()
{
int n, f;
f = 1;
cin >> n;
for(int i = 1; i <= n; ++i){
f *= i;
}
cout << f;
return 0;
}
Вы не указали конкретно, что нужно сделать. Ну, если нужно написать программу в Pascal, то она ниже. Либо напишите нормально что Вам нужно.
Begin
Writeln('На запад от Москвы природа подмосковного края.');
End.
[32, 40, 48, 8]
Общий вес I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)
K = 32 * 40 * 48 шт = 61440 шт
Вес текста I = 61440 * 8 бит = 491520.0 бит =
= 61440.0 байт = 60.0 Кбайт = 0.05859375 Mбайт
uses crt;
var n,s:integer;
begin
write('Введите время N: ');
readln(N);
n:=n div 3;
s:=n;
writeln('Конечное количество бактерий равно ',power(2,s));
end.