Задания.ру
Анонимно
2 часа назад

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


Новые вопросы по Информатике

Помогите срочно Пожалуйста .Написать программу, используя ТРИ ВИДА ЦИКЛОВ (цикл с параметром, цикл с предусловием и цикл с постусловием) ИСХОДНАЯ ФОРМУЛА : Z=tg (t-cost) Значение аргумента : t=14; 15;...
Студенческий
6 минут назад
Трое судей используют электрическую схему тайного голосования. решение принимается в том случае, если проголосовало большинство.составить соответствующее логическое выражение. У кого сохранилось решен...
10 - 11 классы
10 минут назад
Напишите программу вычисления выражение с использованием наименьшего количеством операторов x 1,2 = b +-√b^2-4ac/2a
5 - 9 классы
11 минут назад
Тема: Pascal.Циклы 1)Напечатать таблицу умножения на 6(умножение от 1 до 9) 2)Найти сумму всех трехзначных чисел,кратных 3 3)Вычислить сумму 1+1/2+1/3+...+1/n
5 - 9 классы
11 минут назад
Для записи сообщения использовался 16 символьный алфавит всё сообщение содержит 512 символов Сколько килобайт составляет сообщение?
10 - 11 классы
12 минут назад