7. Информационный объём 8 битов * разрешение 2*3dpi(dots per inch) = 8*6 = 48 бит = 6 байт
dpi смущает, без него было бы меньше сомнений
6. 640*480*3(*8 для приведения к битам)/28800 бит/с ≈ <span>263,315 секунд</span>
Var S:string;
c:char;
i,k,N:integer;
begin
Readln(S);
Readln(c);
N:=length(S);
For i:=N downto 1 do
If S[i]:='и' then
begin
k:=i;
break;
end;
For i:=N+1 to downto k do
S[i]:=S[i-1];
S[k]:=c;
Writeln(S);
end.
Var
a:real;
begin
readln(a);
if a>=7.28 then writeln('МОЖНО')
else writeln('НЕЛЬЗЯ');
end.
Var a:array[1..10] of real; i:integer;
begin
for i:=1 to 10 do
a[i]:=(2*i-1)/cos(i);
for i:=1 to 10 do
writeln(i,'->',a[i]);
readln;
end.<span>
</span>