Помощь - Поиск - Пользователи - Календарь
Полная версия: Напишите пожалуйста такие вот проги....буду очень благодарен...
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи > Задачи на заказ
Незнайка(((
6) Задано трицифрове число. Визначити добуток його цифр.
3)Задано трицифрове число. Определить, какая цифра в этом числе есть больше - первая или последняя.
12)Определить количество предложений в заданном фрагменте текста. give_rose.gif
Lapp
Цитата(Незнайка((( @ 13.05.2011 0:25) *
6) Задано трицифрове число. Визначити добуток його цифр.
3)Задано трицифрове число. Определить, какая цифра в этом числе есть больше - первая или последняя.
12)Определить количество предложений в заданном фрагменте текста. give_rose.gif


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

Ты понял, что в этом разделе решают за деньги?
Незнайка(((
Задано трицифрове число. Определить произведение его цифр.Смотря за какие...
Lapp
Цитата(Незнайка((( @ 14.05.2011 2:38) *
Смотря за какие...

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

Если ты сознательно запостил сюда, можно начинать говорить о цене. Если по ошибке - тогда я просто закрою тему или перенесу ее в раздел Задачи. Так что, будь ласков, проясни этот вопрос.
-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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.