Var
n:longint;
i,d,dmax:byte;
a:array[0..9] of byte;
begin
Writeln('Введите натуральное число (1..2147483647): ');
Read(n);
for i:=0 to 9 do a[i]:=0;
dmax:=0;
while n>0 do begin
d:=n mod 10;
if dmax<d then dmax:=d;
Inc(a[d]);
n:=n div 10
end;
Writeln('Максимальная цифра ',dmax,' встречается ',a[dmax],' раз(а)')
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число (1..2147483647):
235636634
Максимальная цифра 6 встречается 3 раз(а)
Ответ:Program few2;
Uses crt;
Var a, b, y, min: integer;
Begin
ClrScr;
Writeln('y:= min+ 2* min+ b');
Write('Значение a: ');
Readln(a);
Write('Значение b: ');
Readln(b);
If a>b then
min:=a;
If a<b then
min:=b;
y:= min+ 2* min+ b;
Begin
If a=b then
Writeln('Невозможно найти значение...')
else
Begin
Writeln('min= ', min);
Writeln('y= ', min, '+ 2* ', min, '+ ', b);
Writeln('Y= ', y);
End;
End;
Readln;
End.
Объяснение:
Так как 1 байт равен 8 битам, то в данном сообщении 70 символов.
#include <iostream>
#include <stdlib.h>
using namespace std;
int main() {
const int n = 10;
int a[n];
double s=0;
int k=0;
srand(time(0));
for (int i = 0; i < n; i++) {
a[i]=-20 + (101.0 / RAND_MAX) * rand();
cout << a[i] << " ";
}
cout <<"\n";
for (int i = 0; i <= n; i++){
s = s+a[i];
}
s = s/n;
cout << "Среднее = " << s <<"\n";
for (int i = 0; i <= n; i++){
if (a[i]>s) k++;
}
cout << "k = " << k <<"\n";
return 0;
}
Пример:
<span>-18 80 77 66 74 44 62 78 45 0
Среднее = 50.9
k = 6</span>
Байты, КилоБайты, МегаБайты и т.д
1 байт = 8бит
1 килобайт = 1024 байт