1.вводится целое неотрицательное число. найти максимальную и минимальную цифру в числе. 2. вводится целое неотрицательное число. входит ли в него заданная цифра? если да, то сколько раз она в нем встречается. решить в паскали

160

411

Посмотреть ответы 2

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

kyasarin1

Информатика

4,5(72 оценок)

1) var n,m,max,min: integer; begin write('введите число: '); readln(n); min: =9; max: =0; while n> 0 do begin m: =n mod 10; if m< min then min: =m; if m> max then max: =m; n: =n div 10; end; writeln('максимальное число: ',max); writeln('минимальное число: ',min); end.2)vari,count: integer; n,s: string; beginwriteln('введите число: '); readln(s); writeln('введите цифру: '); readln(n); for i: =1 to length(s) doif(s[i]=n)thencount: =count+1; writeln('количество раз, когда встречается цифра = ',count); end.