Ответы на вопрос:
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.
Популярно: Информатика
-
Aruzhka00129.06.2023 07:06
-
spfpspfpspdps28.12.2021 12:54
-
vilrimma28.07.2022 19:39
-
анаркааа5423.11.2020 23:45
-
ikol291230.07.2022 17:36
-
панда134112.11.2021 21:01
-
neriman0417.10.2020 00:55
-
yaltalove6714.09.2021 22:47
-
dianaknyazeva31.05.2023 16:28
-
nyuta148801.03.2021 19:31