Код (Pascal)
var
c: array[1..15] of integer;
i, k: integer;
pr: longint;
begin
for i:=1 to 15 do
read(c[i]);
pr:=1;
k:=0;
for i:=1 to 15 do
if c[i]=30 then
begin
pr:=pr*3;
k:=k+1;
end;
if k=0 then pr:=0;
write(pr);
for i := 1 to k do write(0);
writeln(' ', k);
end.
Program bbb
var
N,k:integer;
begin
writeln('введите число N');
readln(N);
k=0;
for 1 to N do
begin;
if k mod 5=0 then
k:=k+1;
writeln(k);
end;
end. Попробуй так должно получится, если не получается добавь переменную i в разделе var и вставь сюда (for i=1 to N do...)
Var a,z:integer;
q:boolean;
begin
read(a);
while a>0 do begin
z:=a mod 10;
if (z>3)and(z<8) then q:=true;
a:=a div 10;
end;
writeln(q);
end.
100 мегабит это 1024000 килобит. 1 мегабит = 1024 килобита.
1024000 килобит это 104857600 бит. 1 килобит = 1024 бита.
104857600 бит это 13107200 байт. 1 байт - 8 бит.
То есть, теоретически 13107200, но на практике может быть значительно меньше.
Ответ: 13107200
#include <iostream>
using namespace std;
int main(){
cout << "Enter n: ";
int n;
cin >> n;
double p = 1;
for(int i = 2; i<n; i++){
p *= ((double)i)/(i+1.0);
}
cout << ''Result is: " << p << endl;
}
Как-то так, программу не компилировал, могут быть незначительные синтаксические ошибки, но основной алгоритм такой.