Оператор выбора

[Largo]

Я лишь недавно познакомился с программированием , поэтому ещё не понимаю что к чему. Но мне надо решить задачу из раздела "оператор выбора" с помощью программы Delphi. Прошу подскажите что делать. Условия "найти произведение цифр K-значного числа"

[EvKont]

Ничего не понятно само задание выложи

[antoha.by]

Все просто:

var
 pr,i:integer;
 s:string;
begin
// s- это твое число pr - произведение цифр
pr:=1; // произведение изначально равно 1
// перебор всех цифр, преобразование из строкового формата в числовой
 и их умножение
for i:=1 to length(s) do
 pr:= pr * StrToInt(s[i]);
end;

[EvKont]

Я конечно дико извиняюся но я не вижу тута оператора выбора

[EvKont]

Ну чтоб был добавим условие
var
pr,i:integer;
s:string;
begin
// s- это твое число pr - произведение цифр
sum:=1; // произведение изначально равно 1
// перебор всех цифр, преобразование из строкового формата в числовой
и их умножение
for i:=1 to length(s) do
if (StrToInt(s[i])>=0) and (StrToInt(s[i])<=9) then
pr:= pr * StrToInt(s[i]);
end;

[antoha.by]

Сообщение от EvKont

Ну чтоб был добавим условие
var
pr,i:integer;
s:string;
begin
// s- это твое число pr - произведение цифр
sum:=1; // произведение изначально равно 1
// перебор всех цифр, преобразование из строкового формата в числовой
и их умножение
for i:=1 to length(s) do
if (StrToInt(s[i])>=0) and (StrToInt(s[i])<=9) then
pr:= pr * StrToInt(s[i]);
end;

Ты что лол? Нахрена тебе это ненужное условие. Только портишь программу.
Самое главное не как программа выполнена, а как она работает!
Ты своим условием нагружаешь работу программы она выполняет 5 лишних действий!!!
А под оператором выбора ты подрозумеваешь оператор if?

[EvKont]

А что ты понимаешь под оператором выбора? Вытаскивание по очереди каждого символа из строки? К тому же условие программу не портит а проверяет явдяется ли символ числом чтоб избежать ошибок. Кстати раз уж на то пошло у тебя в коде
sum:=1; // произведение изначально равно 1
pr:= pr * StrToInt(s[i]);
так что твой правильный вариант тоже будет чуть чуть гнать

[puporev]

Автор глючит, задача очевидно на циклы, а не оператор выбора.

[antoha.by]

Сообщение от EvKont

А что ты понимаешь под оператором выбора? Вытаскивание по очереди каждого символа из строки? К тому же условие программу не портит а проверяет явдяется ли символ числом чтоб избежать ошибок. Кстати раз уж на то пошло у тебя в коде
sum:=1; // произведение изначально равно 1
pr:= pr * StrToInt(s[i]);
так что твой правильный вариант тоже будет чуть чуть гнать

Изначально я делал для суммы цифр но потом заметил что надо произведение и не все переправил.
А по поводу проверки является ли символ числом, если этот символ проходит через функцию StrToInt то уже на этом этапе будет ошибка. зн надо эту проверку совсем другой делать. Да и в условии сказано что выводиться произведение цифр к-значного числа так что оператор if лишний.

[EvKont]

Ладно предлагаю не ругаться и сойтись на том что изначально было неправильное условие задачи