Задать вопрос
5 ноября, 17:27

Сост. програму вычислить кол-во 3-х значных чисел у которых цифры упорядочены строго по возрастанию

+4
Ответы (1)
  1. 5 ноября, 19:35
    0
    var k, p, v, t, i: integer;

    begin

    i:=100;

    k:=0;

    while i 1000 do begin

    p:=i div 100;

    v: = (i div 10) mod 10;

    t:=i mod 10;

    if (t > v) and (p < v) then

    inc (k) ;

    inc (i) ;

    end;

    writeln (k) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Сост. програму вычислить кол-во 3-х значных чисел у которых цифры упорядочены строго по возрастанию ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы