Программа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. Выводы.
|
