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>
Sub aaa()
Cells(8, 3).Formula = "=MAX(A5:A9)+MIN(A5:A9)"
End Sub
Для начала посчитаем сколько всего времени мальчик затратил на перекладывание рыбок в банку 40*2=80, затем посчитаем сколько он затратил времени, чтобы поймать рыбок 40*5*5%=210 всего 290/60=4,8мин
таблица в excel
А1 количество рыб В1 время на улов С1 время на перекладывание D1 общее время
A2-A41 ПРОСТО ПРОСТАВЬ ЦИФРЫ B2 вставь функцию =СУММ(B2;5*5%) и протяни до значения В42 и так далее
Ну вот тебе внутренняя часть проги:k:=0;
while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end;writeln('Кол-во четных= ', a, ' Кол-во нечетных = ',s)
Program ads;
var
i :integer;
z,x,a :real;
begin
writeln('Введи цену за килограмм');
readln(z);//Узнаём цену за 1 кг.
a:=0.1;//начальный вес 100 грамм.
for i :=1 to 10 do begin
write('Цена за ');
write(a:5:2); //Выводим вес
x:=z*a;//Высчитываем цену за a грамм
a:=a+0.1;//прибавляем 100 грамм
write(' килограмм равна - ');
write(x:5:2);//Выводим цену за вес
writeln;
end;
readln;
end<span>.</span>