IPB
ЛогинПароль:

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> Напишите пожалуйста такие вот проги....буду очень благодарен...
Незнайка(((
сообщение 12.05.2011 23:25
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: Дима

Репутация: -  0  +


6) Задано трицифрове число. Визначити добуток його цифр.
3)Задано трицифрове число. Определить, какая цифра в этом числе есть больше - первая или последняя.
12)Определить количество предложений в заданном фрагменте текста. give_rose.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lapp
сообщение 12.05.2011 23:58
Сообщение #2


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


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


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

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


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Незнайка(((
сообщение 14.05.2011 1:38
Сообщение #3





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: Дима

Репутация: -  0  +


Задано трицифрове число. Определить произведение его цифр.Смотря за какие...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lapp
сообщение 14.05.2011 2:46
Сообщение #4


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Незнайка((( @ 14.05.2011 2:38) *
Смотря за какие...

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

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


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
-Programist-
сообщение 2.01.2013 21:13
Сообщение #5


Гость






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-
сообщение 2.01.2013 21:14
Сообщение #6


Гость






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-
сообщение 2.01.2013 21:14
Сообщение #7


Гость






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.
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 28.03.2024 20:35
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"