Программа

program zzz;

var a,m,k:integer;

begin

writeln('Vvedite chislo');

readln(a);

k:=0;

while a<>0 do begin

m:= a mod 10;

a:=a div 10;

k:=k+1;

end;

writeln('Kolichestvo k=',k:3);

readln;

end.

Задания для самостоятельной работы по вариантам:

1. Дано натуральное число. Определить сумму его цифр.

2. Коммерсант ежемесячно увеличивает на Z % и еще на 5 руб. цену туфель, первоначальная цена которых X руб. Написать программу, определяющую, через сколько месяцев цена туфель будет превышать Y руб.

3. Гражданин открыл счет в банке, вложив N руб. Через каждый месяц размер вклада увеличивается на M% от имеющейся суммы. Определить через сколько месяцев размер вклада превысит K руб.

4. На каждом следующем дне рождения Вини-Пух съедает столько же пищи, сколько на двух предыдущих. На двух первых днях рождения у Пятачка и Кролика он съел по R г пищи. Написать программу, определяющую, на каком дне рождения вес съеденной пищи превысит собственный вес Винни-Пуха.

5. Первое любимое число Незнайки –1, второе –5. Каждое следующее число получается как сумма удвоенного предыдущего и предпредыдущего чисел. Так третье любимое число незнайки – 11, а четвертое –27. Вычислить сумму любимых чисел Незнайки среди первых N чисел.

6. Некто взял ссуду в банке величиной А руб., по В % годовых, ежегодно заемщик вносит платежи в счет ссуды в С руб. Написать программу, определяющую, через сколько лет будет погашена ссуда, и сумму денег, выплаченных заемщиком банку.

7. Найти максимальное из натуральных чисел, не превышающих R, которое нацело делиться на L.

8. Царевна-лягушка съедает ежедневно на Y% комаров больше, чем в предыдущий день, и еще два комара. Написать программу, определяющую, через сколько дней количество съеденных комаров превысит 100, если в первый день было съедено X комаров.

9. Начав тренировки, лыжник в первый день пробежал S км. Каждый следующий день он увеличивал длину пробега на A % от пробега предыдущего дня. Определить в какой день он пробежит больше K км.

10. Начав тренировки, лыжник в первый день пробежал L км. Каждый следующий день он увеличивал длину пробега на H % от пробега предыдущего дня. Определить в какой день суммарный пробег за все дни превысит U км.

11. Напечатать минимальное число, большее H, которое нацело делиться на T.

12. Напечатать минимальное число, большее P которое нацело делиться на L

13. Некто взял ссуду в банке величиной А руб. под В% годовых. Ежегодно заемщик вносит платежи в счет ссуды в С руб. Написать программу, определяющую, через сколько лет будет погашена ссуда и сумму денег, выплаченных заемщиком банку

14. Гражданин открыл счет в банке, вложив N руб. Через каждый месяц размер вклада увеличивается на M% от имеющейся суммы. Определить за какой месяц величина ежемесячного увеличения вклада превысит R руб.

15. Начав тренировки, лыжник в первый день пробежал D км. Каждый следующий день он увеличивал длину пробега на H % от пробега предыдущего дня. Определить в какой день суммарный пробег за все дни превысит P км.

16. Богатый дядюшка подарил мне К доллар в мой первый день рождения. В каждый следующий день рождения он удваивал сумму подарка и прибавлял к ней столько долларов, сколько лет мне исполнилось. Написать программу, подсчитывающую общую сумму денег, подаренных к N –му дню рождения, и указывающую, к какому дню рождения сумма подарка превысит Q долл.

17. Три года назад за покупку на базаре 1 кг картофеля, 1 л молока и одного десятка яиц уплачено А руб. с тех пор ежемесячно цена картошки увеличилась на К%, цена молока Р%, яиц в С раз. Написать программу ежемесячного изменения стоимости покупки, определяющую, через сколько месяцев цена покупки, определяющую, через сколько месяцев цена увеличиться более чем в S раз.

18. Агент по продаже автомобилей стоимостью А руб. продал первый автомобиль за В руб. каждый следующий автомобиль он продавал на К % дороже предыдущего. Написать программу, вычисляющую прибыль агента N автомобилей и определяющую, после продажи какого автомобиля прибыль превысит стоимость автомобиля в два раза.

Задание на дом: подготовить отчет по проделанной работе

Содержание отчета:

1. Постановка задачи

2. Алгоритм решения задачи.

3. Список используемых переменных.

4. Блок-схему

5. Текст программы.

6. Результат ее выполнения.

7. Выводы.