90*4000*8(бит в 1 символе)/2400=1200 секунд
1200/60=20 минут
30-20=10 минут
Ответ:10 минут
И кстати, а почему нельзя отдыхать, пока файлы копируются?) Может, задача с подвохом?)))
Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.
1) системные, автоматизированные - неверно, прикладное программное средство (ППС) не может быть одновременно системным.
2) нерезидентные, универсальные - ППС не классифицируется по состоянию в памяти (резидентное/нерезидентное, потому что оно не бывает резидентным и это термин системного программного обеспечения)
3) специализированные, универсальные.- это верно, тут классификация по применимости.
4) резидентные, системные - неверно, смотри 1)
Значит верно утверждение 3.
//PascalABC.Net 3.2
begin
var a:=arrrandom (readinteger('n ='), -15, 15); a.Println;
var b: array of integer;
for var i:=0 to length(a)-1 do if not((a[i]<0) or ((a[i] mod 8)=0)) then begin
setLength (b, length(b)+1);
b[length(b)-1]:=a[i]
end;
b.Print;
end.
Program chisla;
var
a,n:integer;
c1,c2:char;
begin
writeln('введите количество символов');
readln(n);
writeln('введите сами символы');
readln(c1,c2);
if frac(n/2)=0 then
for a:=1 to n div 2 do
begin
write(c1,c2);
end
else
begin
for a:= 1 to n div 2 do
begin
write(c1,c2);
end;
write(c1);
end;
<span>end.</span>