Доброго времени суток! Помогите пожалуйста с заданием! "Составьте программу вычисления...

Question

Доброго времени суток!
Помогите пожалуйста с заданием! "Составьте программу вычисления количества трехзначных чисел, у которых цифры упорядочены строго по возрастанию". Прошу не употреблять команду "inc" т.к. такой не знаю!

Comments

Inc(a), где a число к которому прибавляется 1

---

Inc(a,b), где к a прибавляется b

---

да, спасибо, и правда решение намного короче)))

---

еще, за вместо inc в паскале ABC и ABC.NET можно писать a+=b; ну и не только +, другие арифм. действия так же записывать можно.

Answer 1

Только основная часть программы на паскале:
for i:=100 to 999
do begin
If (i div 100<((i mod 100) div 10)) and (((i mod 100) div 10)<i mod 10)<br>then s:=s+1;
end;
Если что, то inc(x) это увеличение числа х на 1, а inc(x,y) увеличение числа х на y

Comments

Я снизу написав общий вид

---

да, все верно

---

написал*

---

Да

---

??))

---

Программа в общем виде так должна выглядеть:Program v10;
Var s,i:integer;
begin
For i:=100 to 999 do
begin
If (i div 100<((i mod 100) div 10)) and (((i mod 100) div 10)<(i mod 10))<br>then s:=s+1;
end;
end.

---

)))))

---

ага, или как я в комментариях к условию написал, так тоже вариант))))

---

Ок, попробую ей объяснить, что я знаю эту команду

---

Так ты поясни ему ее, и он поймет что ты ее знаешь

Answer 2

Var i,s:longint;

begin
 s:=0;
 for i:=100 to 999 do
  If ((i div 100)<((i div 10) mod 10)) and (((i div 10) mod 10)<(i mod 10))<br>   then s:=s+1;
 writeln(s);
 readln
end.

Comments

Есть несколько типой данных числовые и рядковые(или как они там) лонгинт(или долгое целое) один из числовых типов

---

в общем на подобии BigInteger если не ошибаюсь)

---

это тип данных переменной. Длинное целое число. То есть число, находящееся в диапазоне -2147483648..2147483647

---

Еще вопрос для общего развития? Что такое "longint"?) Я просто знаю только что такое "integer" и "real"

---

Спасибо !

---

Ооо, понятно. Спасибо !