Var s,i:integer;
begin
s:=0;
for i:=10 to 99 do
if (i mod 3 = 0) and (i mod 5 <> 0) then s:=s+i;
writeln(s);
end.
Вот держите:
var n,i,l,m:integer; sum:real;
begin
readln(n);
sum:=1; l:=1;
while m<>n do begin
m:=m+2;
sum:=sum-((1/m)*l);
l:=l*-1;
end;
writeln(sum);
end.
Логические выражения все, кроме В.
90*4000*8(бит в 1 символе)/2400=1200 секунд
1200/60=20 минут
30-20=10 минут
Ответ:10 минут
И кстати, а почему нельзя отдыхать, пока файлы копируются?) Может, задача с подвохом?)))
А) письменный
б) звуковой
в) оптический
г) медиа
д) звуковой
е) звуковой
ж) письменный