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) var i,count: integer; n,s:string; begin writeln('Введите число: '); readln(s); writeln('Введите цифру: '); readln(n); for i:=1 to length(s) do if(s[i]=n)then count:=count+1; writeln('Количество раз, когда встречается цифра = ',count); end.
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)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.
s = 121
Объяснение:
s = 0 // s = 0
for k in range(2, 13): // Цикл выполняется 11 раз (2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
s = s + 11 // s = s + 11
print(s) // Выводим s
Итерация 1:
s = 0
s = 0 + 11
s = 11
Итерация 2:
s = 11
s = 11 + 11
s = 22
Итерация 3:
s = 22
s = 22 + 11
s = 33
Итерация 4:
s = 33
s = 33 + 11
s = 44
Итерация 5:
s = 44
s = 44 + 11
s = 55
Итерация 6:
s = 55
s = 55 + 11
s = 66
Итерация 7:
s = 66
s = 66 + 11
s = 77
Итерация 8:
s = 77
s = 77 + 11
s = 88
Итерация 9:
s = 88
s = 88 + 11
s = 99
Итерация 10:
s = 99
s = 99 + 11
s = 110
Итерация 11:
s = 110
s = 110 + 11
s = 121