Question

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

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

Answer 1

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

Answer 2

Var a, b: integer;

Answer 3

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

Answer 4

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

Answer 5

b:=b+1; end;

Answer 6

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