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