Question

Тема:Pascal.Циклы1)Составить алгоритм решения задачи:сколько можно купить быков,коров и телят,платя за быка 10 руб.,за корову-5 руб.,а за теленка-0,5 руб.,если на 100 руб. надо купить 100 голов скота?2)Даны 2 целых числа А и В(A<B).Найти сумму всех целых чисел от А до В включительно.3)дано целое число N(>0).Найти сумму 1+1/2+1/3+...+1/N(вещественное число).

Answer 1

Две задачи  в файле

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.