• Вопрос по информатике:

    Введите трёхзначное число вывести на экран число сотен,десятков,единиц в этом числе.Работа в программе PascalABCNET

    • Автор:

      spanky

  • var a: integer;

    sot, des, ed: integer;

    begin

    readln(a);

    if (a>99) and (a<1000) do

    begin

      ed:=a div 10;

      des:=(a mod 100) div 10;

      sot:=a mod 100;

    end else writeln(\'Число не трёхзначное!\');

    writeln(\'Единиц \', ed);

    writeln(\'Десятков \', des); 

    writeln(\'Сотен \', sot);

    end.  

      

    • Отвечал:

      copperdavidson
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска