32 задачи на циклы

[maguk1]

Всем привет, вот задали в инсте, а я болел и нужно сдать уже через пару дней. Часть у меня есть но сомневаюсь в их правильности. Кому не жалко дайте код(решение) хотя бы некоторых.

--------------------------------------------------------------------------
Циклы.

1. Составьте программу, выводящую на экран квадраты чисел от 10 до 20.

2. Составьте программу, котораЯ вычисляет сумму чисел от 1 до n.значение n вводится с клавиатуры.

3. Составьте программу, составьте программу, которая вычисляет произведение чисел от 1 до n.n вводится с клавиатуры.

4. С клавиатуры вводятся n чисел. Составьте программу, которая определяет кол-во отрицательных, кол-во положительных и кол-во нулей среди введеных чисел.Значение n вводится с клавиатуры.

5. Составьте программы перевода старинных русских мер длины, торгового и аптекарского веса(счетчик цикла от 1 до 10)
* саженей в метры(1 сажень равна 2,1366 м)
* из дюймов в сантиметры(1 дюйм равен 2,5 см)
* футов в метры(1 фут равен 0,3048 м)
* драхм в граммы(1 драхма равна 3,7325 г)
* унций в граммы(1 унция равна 29,86 г)
* фунтов в килограммы(1 фунт равен 0,40951 кг)
* аршинов в метры(1 аршин равен 0,7112 м)
* золотников в граммы(1 золотник равен 4,2657 г)
* дюймов в миллиметры(1 дюйм равен 25,3995 мм)

6. В сберкассу на трёхпроцентный вклад положили S рублей.Какой станет сумма вклада через N лет.

7. Ввести с клавиатуры 10 пар чисел. сравнить числа в каждой паре и напечатать большие из них.

8. Даны натуральные числа от 20 до 50.Напечатать те из них, которые делятся на 3, но не делятся на 5.

9. даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.

10. Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7.

11. Напечатать те из двузначных чисел которые делятся на 4, но не делятся на 6.

12. Найти произведение двузначных нечетных чисел кратных 13.

13. Найти сумму чисел от 100 до 200 кратных 17.

14. Составьте программу, которая вычисляет сумму квадратов чисел от 1 до введенного вами целого числа N.

15. Написать программу, которая по заданным значениям чисел a и b находит a в степени b. В запросе укажите допустимые значения этих переменных( Например если а - дробное, то b не может быть отрицательным).

16. В бригаде, работающей на уборке сена, имеется N сенокосилок.Первая сенокосилка работала m часов, а каждая следующая на 10 минут больше, чем предыдущая.Сколько часов проработала вся бригада?

17. В ЭВМ вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.

18. Задано натуральное число N. Найти количество натуральных чисел, не превосходящих N и не делящихся ни на одно из чисел 2,3,5.

19. Два двузначных числа, записанных одно за другим , образуют четырёхзначное число, которое делится на их произведение. Найти эти числа.

20. даны два двузначных числа А и В. Из этих чисел составили 2 четырехзначных числа: первое число получили путем написания сначала числа А, затем В. Для получения второго числа сначала записали число В, затем А. Найти числа А и В если известно , что первое четырехзначное число нацело делится на 99, а второе на 49.

21. Дано натуральное n. вычислить 1/(2 в квадрате) + 1/(4 в квадрате)+ ... + 1/(2n в квадрате) ( в квадрате только n)

22. дано натуральное n. вычислить: 1 + 1/2 + 1/3 + 1/4 + ... + 1/n.

23.Вычислить : 1+2+4+8+...+ 2 в 10 степени.

24. Вычислить: (1+2)*(1+2+3)*...*(1+2+...+10).

25. Даны действительное (а) и натуральное (n). вычислить: a(a+1)...(a+n-1)

26. даны действительно х и натуральное n. вычислить: sin x + sin x в квадрате + ... sin x в степени n.

27. У первокласника пети m рублей.Мороженое стоит k рублей. Петя решил наесться досыта мороженого, для этого он покупал по одному мороженому и съедал его до тех пор, пока ему хватало денег. Как пете узнать, сколько денег останется у него в конце концов? учтите, что петя делить еще не умеет, а умеет только вычитать и складывать. сколько мороженых он может съесть?.

28. Бизнессмен взял ссуду m тысяч рублей в банке под 20% годовых. через сколько лет его долг превысит s тысяч рублей, если за это время он не будет отдавать долг.

29. с помощью оператора while напишите программу вывода всех четных чисел в диапазоне от 2 до 100 включительно.

30. С помощью оператора while напишите программу определения суммы всех нечетных чисел в диапазоне от 1 до 99 включительно.

31. Имеется кусок ткани длинной M метров. От него последовательно отрезаются куски равной длины. Все данные по использованию ткани заносятся в компьютер. Компьютер должен выдать сообщение о том, что материала не хватает, если будет затребован кусок ткани больше длины, чем имеется.

[Stilet]

Наработки есть?

[LeBron]

Укажите хотя бы язык. А так - Вам во фриланс. Задач тут максимум на 1500р, но без наработок это фриланс.

[danekne]

1)
for i:=10 to 20 do
writeln ("квадрат числа",i,"равен: ", i*i);
2) for i:=1 to n do
s:=s+i;
3) аналогично 2, только вначале s=1 нужно поставить
4) for i:=1 to n do
begin
write ("введите число:");
readln (k);
if k<0 then o+=1 else if k> then p+=1 else nol+=1;
end;

[IT-man]

1000 WMR KOHTAKTbI Hu}I{E

[Lokuson]

950р. Можно на телефон.
стучись 25523четыре3

[IT-man]

DEMPING TAK DEMPING 500 R

[sheka]

Где-то я уже такой демпинг видел)))

400wmr 255507394

[IT-man]

310 WMR! INTERESNO YAZIK KAKOI?

[russian-stalker]

Даже деньги стыдно за такое брать)))
Если паскаль, то 2 задача:

program Project2;

var
n,i,o:integer;

begin
  readln(n);
  o:=0;
  for i:=1 to n do
  begin
  o:=o+i;
  end;
  writeln(o);
  readln;
end.