90*4000*8(бит в 1 символе)/2400=1200 секунд
1200/60=20 минут
30-20=10 минут
Ответ:10 минут
И кстати, а почему нельзя отдыхать, пока файлы копируются?) Может, задача с подвохом?)))
Если я правильно понял задание, то вот:
var y:real; n:integer;
begin
readln(n);
repeat
y:=y+1/n;
n:=n-1;
until n=0;
writeln(y);
end.
Чётные:6,12,18,452,398
Нечётные числа:771,11,5,29,9,13,99,53
Однозначные числа:6,5,9,
Двузначные числа:12,18,11,29,13,99,53
Трёхзначные числа:771,452,398
Четные однозначные числа:6,
Четные двузначные числа:12,18,
//Я слабо себе представляю как выглядит блок-схема с подпрограммой, так что выкладываю два варианта
//Pascal ABC.NET v3.1 сборка 1219
Var s:real; i,j,d1,d2,r1,r2,k:integer;
function Simple(d,r:integer):real;
begin
Simple:=sqr(d)*(r-1130)*9.8/(18*0.6);
end;
begin
k:=0;
read(d1,d2,r1,r2);
for i:=d1 to d2 do
begin
for j:=r1 to r2 do
begin
s:=s+Simple(i,j);
inc(k);
end;
end;
s:=s/k;
writeln(s);
end.
Пример ввода:
1
5
2
4
Пример вывода:
-11249.1296296296
var a: array [1..20] of integer;
i, k: integer;
s: real;
begin
for i:=1 to 20 do
readln(a[i]);
s := 0;
k := 0;
for i:=1 to 20 do
if (a[i] >=0) and (a[i] mod 2=0) and (a[i]>6) then begin
s := s + a;
k := k + 1;
end;
writeln('среднее: ', s/k);
<span>end. </span>