Василий
7 год назад
Составите программу вычисления количества трехзначных чисел, у которых цифры упорядочены строго по возрастанию
ОТВЕТЫ
Добрынич
Jul 12, 2019
Var
i, j, c: integer;
begin
c := 0;
for i := 100 to 999 do
if(((strtoint(i.ToString[1])) lt; (strtoint(i.ToString[2])))
and ((strtoint(i.ToString[2])) lt; (strtoint(i.ToString[3]))))
then c := c + 1;
write(c);
end.
i, j, c: integer;
begin
c := 0;
for i := 100 to 999 do
if(((strtoint(i.ToString[1])) lt; (strtoint(i.ToString[2])))
and ((strtoint(i.ToString[2])) lt; (strtoint(i.ToString[3]))))
then c := c + 1;
write(c);
end.
284
Смежные вопросы:
