Доброго времени суток! Помогите пожалуйста с заданием! "Составьте программку вычисления
Благого медли суток!
Помогите пожалуйста с заданием! "Составьте программу вычисления количества трехзначных чисел, у которых цифры упорядочены взыскательно по возрастанию". Прошу не употреблять команду "inc" т.к. таковой не знаю!
Руслан Чигибаев
Inc(a), где a число к которому прибавляется 1
Очеретяшова
Елизавета
Inc(a,b), где к a прибавляется b
Тимур Сегоднин
еще, за вместо inc в паскале ABC и ABC.NET можно писать a+=b; ну и не только +, иные арифм. деянья так же записывать можно.
Витька
да, спасибо, и правда решение намного кратче)))
2 ответа
Сергей Кубрик
Var i,s:longint;
begin
s:=0;
for i:=100 to 999 do
If ((i div 100)lt;((i div 10) mod 10)) and (((i div 10) mod 10)lt;(i mod 10))
then s:=s+1;
writeln(s);
readln
end.
begin
s:=0;
for i:=100 to 999 do
If ((i div 100)lt;((i div 10) mod 10)) and (((i div 10) mod 10)lt;(i mod 10))
then s:=s+1;
writeln(s);
readln
end.
Kanataeva Anzhelika
Спасибо !
Леха Антонюшин
Еще вопрос для общего развития? Что такое "longint"?) Я просто знаю только что такое "integer" и "real"
Леонид
это тип данных переменной. Длинноватое целое число. То есть число, находящееся в спектре -2147483648..2147483647
Илюша Ковайков
в общем на подобии BigInteger если не заблуждаюсь)
Степан Кажурин
Есть несколько типой данных числовые и рядковые(либо как они там) лонгинт(или длинное целое) один из числовых типов
София Аравина
Ооо, понятно. Спасибо !
Руслан
Только главная часть программки на паскале:
for i:=100 to 999
do begin
If (i div 100lt;((i mod 100) div 10)) and (((i mod 100) div 10)lt;i mod 10)
then s:=s+1;
end;
Если что, то inc(x) это увеличение числа х на 1, а inc(x,y) повышение числа х на y
for i:=100 to 999
do begin
If (i div 100lt;((i mod 100) div 10)) and (((i mod 100) div 10)lt;i mod 10)
then s:=s+1;
end;
Если что, то inc(x) это увеличение числа х на 1, а inc(x,y) повышение числа х на y
Zharchenkov Nikita
Так ты поясни ему ее, и он усвоит что ты ее знаешь
Крищенко
Милена
Ок, попробую ей разъяснить, что я знаю эту команду
Евгений Комендров
ага, либо как я в комментах к условию написал, так тоже вариант))))
Инна Шеломанова
)))))
София Пуастова
Программка в общем виде так должна выглядеть:Program v10;Var s,i:integer;beginFor i:=100 to 999 dobeginIf (i div 100<((i mod 100) div 10)) and (((i mod 100) div 10)<(i mod 10))then s:=s+1;end;end.
Горонович
Таисия
??))
Виктор
Да
Константин Гозенко
Я снизу написав общий вид
Женя Голубихин
написал*
Константин Пенякин
да, все правильно
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов