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.
Если бы ты был внутренне благ и чист, тогда бы ты все видел и постигал без труда. Чистое сердце проникает в тайны неба и в тайны преисподней. Каков человек внутри себя, так он и судит обо всем внешнем. Если в мире и есть какая-либо радость, обретается она в чистом сердце. А все напасти и скорби лучше всего ведомы сердцу злому. Подобно железу, которое, будучи помещенным в огонь, раскаляется и очищается от ржавчины, человек, обращающий всего себя к Богу, очищается от лености и превращается в нового человека.
begin
b:=sqrt(17);
writeln('b = sqrt(17) = ',b:4:2);
c:=sqrt(10)+sqrt(7);
writeln('c = sqrt(10)+sqrt(7) = ',c:4:2);
if b>c then writeln('sqrt(17) > sqrt(10)+sqrt(7)')
else writeln('sqrt(10)+sqrt(7) >= sqrt(17)');
end.
Пример:
b = sqrt(17) = 4.12
c = sqrt(10)+sqrt(7) = 5.81
sqrt(10)+sqrt(7) >= sqrt(17)