Регистрация
Слендер12
20.03.2022 01:07
Информатика
Есть ответ 👍

Дано натуральное число. найти минимальную цифру.

117
338
Посмотреть ответы 3

Ответы на вопрос:

KykuCat
KykuCat
4,7(62 оценок)

program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.

алма15
алма15
4,8(8 оценок)

 

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.

littlefoxy
littlefoxy
4,4(81 оценок)
Program n1; const n=20; var a: array [1..n] of integer; i,k: integer; begin k: =0; for i: =1 to n do begin write('введите ',i,' число: '); readln(a[i]); if (a[i]=0) or (a[i]< =-30) or (a[i]> =30) then break; if (a[i] mod 2=0) and (a[i] mod 3=0) then k: =k+1; end; writeln('количество: ',k); end.

Популярно: Информатика