28800 бит/с= 28800/8=3600 байт/с
72000/3600 = 20 с
Program Z1;
Var n,i,s: real;
Begin
write ('n=');
read (n);
S:=0;
i:=3;
while i<=n do
Begin
i:=i+4;
S:=S+i;
End;
write ('S=',S);
End.
Uses crt;
var x,m: array [1..40] of integer;
n,k,c:integer;
begin
readln(n);
c:=1;
for k:=1 to n do
begin
write('x[',k,']:');
readln(x[k]);
end;
k:=1;
repeat
if x[k]>0 then
begin
m[c]:=x[k];
inc(c);
inc(k);
end
else inc(k);
until c=6;
writeln;
for c:=1 to 5 do
writeln('m[',c,']:',m[c]);
<span>end.</span>
С++.
я напишу на плюсах, просто вместо cout и cin подставишь printf и scanf
#include <iostream>
using namespace std;
void main()
{
int n,p,sum=0;
cin >> n;
for (;n!=0;) {
p = n%10;
sum+=p;
n/=10;
}
cout << sum;
cin.get();
cin.get();
}
1) А:174; Б: понятия не имею
2) 6450 или 1100100110010
3) 3 бита