Тема: pascal.циклы 1)составить алгоритм решения : сколько можно купить быков,коров и телят,платя за быка 10 руб.,за корову-5 руб.,а за теленка-0,5 руб.,если на 100 руб. надо купить 100 голов скота? 2)даны 2 целых числа а и в(a0).найти сумму 1+1/2+1/3++1/n(вещественное число).
3)
var n,i;integer;
s:real;
begin
write('n=',n); read(n);
for i:=1 to n do begin
s:=s+1/i;
end;
write('s=',s);
end.