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