Помогите с решением задач в Delphi

.arctic, 281 просмотр

3.Задача «Сумма цифр»: Дано целое число N. Написать программу, которая вычисляет сумму цифр числа и количество четных цифр этого числа.
4.Задача про вклад: В банк было положена некоторая сумма S под процент р. Написать программу, которая будет подсчитывать количество лет, через которые сумма вклада удвоится.

Примечание:
Насчёт Зад.3: сумму выводит правильно, но с кол-вом чётных цифр проблема
Допустим ввожу число 222:
сумма - 6
чётных цифр - 1

Примечание:
А в Зад.4 я так понимаю что в edit1 я ввожу %, а в edit2 выводится через сколько лет сумма удвоится, так ведь?

Примечание:
И ещё вопрос насчёт зад.4, допустим я ввожу 25%, в ответ мне пишет что сумма удвоится через 3 года, но ведь она должна удвоиться через 4 года

Примечание:
Я понял вашу мысль, но мне кажется что точнее бы было чтобы на моём примере(25%) всё таки выводило число 4. По сути ответ там колеблется от 3 до 4 лет, но было бы логичнее указывать верхнюю границу, надеюсь вы меня понимаете. Можно ли так сделать?

Ответы:

AlexOrange

тебе в консольном или графическом режиме надо?

Schoolboy

3. Кидаешь на форму 3 поля edit, и кнопку. В обработчик OnClick кнопки кидаешь код:
(*начало кода*)
var
input_string:string;
sum,i,j:integer;
begin
input_string:=edit1.text;
sum:=0;
j:=0;
for i:=1 to length(input_string) do
begin
sum:=sum+strtoint(input_string[i]);
if i mod 2 = 0 then inc(j);
end;
edit2.text:=inttostr(sum);
edit3.text:=inttostr(j);

Schoolboy

>>И ещё вопрос насчёт зад.4, допустим я ввожу 25%, в ответ мне пишет что сумма удвоится через 3 года, но ведь она должна удвоиться через 4 года

Schoolboy

>>По сути ответ там колеблется от 3 до 4 лет...
>>...логичнее указывать верхнюю границу...
Верхняя граница и указывается, так как round округляет в большую сторону до целого. На самом деле ответ "колеблется" между 2 и 3.

12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.