Тема:Pascal.Циклы1)Составить метод решения задачки:сколько можно купить быков,скотин и

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

Задать свой вопрос
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.


Симирский Вячеслав
спасибо:)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт