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

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

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

Задать свой вопрос
1 ответ
Это пока 1-ое на данный момент скину другие.
Регина Мерешенская
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.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт