Ответ:
#include <iostream>
using namespace std;
int main () {
int n;
cin >> n;
if (n==0) {
cout << "0 0" << endl << 1 << endl << 1 << endl;
return 0;
}
int mx=0; int mn=10; int mxi=10; int mnk=0; int ind=0;
while (n>0) {
int c=n%10;
n/=10;
if (c>=mx) {
mx=c;
mxi=ind;
}
if (c<mn) {
mn=c;
mnk=1;
} else if (c==mn) {
++mnk;
++ind;
}
}
cout << mx << " " << mn << endl << (ind - mxi) << endl << mnk << endl;
return 0;
}
Объяснение:
Program programma;
Uses crt;
var a,b,min: real;
Begin clrscr;
write('Введите a = ');
readln(a);
write('Введите b = ');
readln(b);
if a>b then
min:=b
else
begin
if a<b then
min:=a;
if a=b then
write('a и b равны');
end;
write('Min = ', min);
readln;
End.
А)M mod 2 = 0
Т.к. остаток деления четного числа на 2 должен равняться 0
Алгоритм ол действия осындай 1)мен уйге келдым 2)кырдым 3)сабак ыстедым 4)уыйктадым. Алгоритм ол действия
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
Write('S=',Range(1,n).Select(x->sqrt(3*x)).Sum)
end.
<u>Пример</u>
n= 5
S=14.5186255116972