Язык программирования паскаль. найти три минимальных - вопрос №2191399 от 0958261046p08tm5 09.07.2020 08:22

Question

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

0958261046p08tm5 · 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....