Напишите пожалуйста такие вот проги....буду очень благодарен... Опции

[Незнайка(((]

6) Задано трицифрове число. Визначити добуток його цифр.
3)Задано трицифрове число. Определить, какая цифра в этом числе есть больше - первая или последняя.
12)Определить количество предложений в заданном фрагменте текста.

[Lapp]

6) Задано трицифрове число. Визначити добуток його цифр.
3)Задано трицифрове число. Определить, какая цифра в этом числе есть больше - первая или последняя.
12)Определить количество предложений в заданном фрагменте текста.

Добуток - это результат. Так Яндекс говорит. Тогда результат чего именно?

Ты понял, что в этом разделе решают за деньги?

[Незнайка(((]

Задано трицифрове число. Определить произведение его цифр.Смотря за какие...

[Lapp]

Смотря за какие...

Незнайка(((, ты не на тот вопрос отвечаешь, похоже. Я спрашивал, знаешь ли ты, что тут решают за деньги.
Или твое знание этого зависит от суммы?

Если ты сознательно запостил сюда, можно начинать говорить о цене. Если по ошибке - тогда я просто закрою тему или перенесу ее в раздел Задачи. Так что, будь ласков, проясни этот вопрос.

[-Programist-]

1)var a,b,c,d:integer;
begin
readln(a);
b:=a mod 100;
c:=(a div 10)mod 10;
d:=a div 10;
writeln(b*c*d);
end.

[-programist-]

var a,b,c,d:integer;
begin
readln(a);
b:=a mod 100;
d:=a div 10;
if(b>d)then writeln(b)else writeln(d);
end.

[-programist-]

var s:string; i,k:integer;
begin
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i] in ['.','?','!'] then inc(k);
writeln(k);
end.