Помогите пожалуйста, решается четвертная оценка. Не очень понимаю Паскаль. 1. Дана...

Question

Помогите пожалуйста, решается четвертная оценка. Не очень понимаю Паскаль.

1. Дана последовательность 5, 9, 13, 17, ... . Составьте программу для подсчёта числа слагаемых, сумма которых равна 324.
2. Составьте программу для определения количества цифр в записи произвольного натурального числа.
3. Одноклеточная амёба каждые три часа делится на 2 клетки. Составьте программу для вычисления времени, через которое будет X амёб. (Для примера: Х=2000)

Answer 1

Это пока первое сейчас скину остальные.

---

Comments

Var a, b: integer;

---

Begin writeln('введите число'); readln (a);

---

b:=0; while a<>0 do begin a:=a div 10;

---

b:=b+1; end;

---

writeln('количество цифр в числе равно'); End.