Язык программирования паскаль. найти три минимальных - вопрос №2192076 от ruslanka1000 23.04.2022 18:33

Question

Информатика: Язык программирования паскаль. найти три минимальных цифры в числе.

ruslanka1000 · Answer

uses crt; var  a,min: integer;  n: longint; begin  clrscr;  min:=9;  write( Vvedite chislo:   );  readln(n);  a:=n mod 10;  repeat   if a min then min:=a;   a:=n mod 10;   n:=n div 10;  until n=0;  if a min then min:=a;  write( minimalnaya zifra:   ,min);  readln end....