Наибольшее пятизначное двоичное число будет состоять из всех единиц:
Переведём его в десятичную систему:
Хотя, гораздо проще такое число переводить как наименьшее шестизначное минус один:
На pascal abc
uses crt;
var
a, b, c : real;
begin
write('Введите три числа (через пробел): ');
readln(a, b, c);
if (a>=0) and (a<10) and (b>=0) and (b<10) and (c>=0) and (c<10)
then writeln ((a+b+c)/3)
else writeln ('Число не принадлежит промежутку [0;10)');
<span>end.</span>
НОД будем находить при помощи Эвклидового алгоритма, а НОК - по формуле:
.
program nod_nok;
var
a, b, g: integer;
l: real;
function Gcd(a, b: integer): integer;
var
t: integer;
begin
while b <> 0 do
begin
t := b;
b := a mod b;
a := t;
end;
Gcd := a;
end;
function Lcm(a, b, gcd: integer): real;
begin
Lcm := Abs( a * b ) / gcd;
end;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
g := Gcd(a, b);
writeln('НОД: ', g);
l := Lcm(a, b, g);
writeln('НОК: ', l:1:0);
end.
Var
n,i,a:integer;
s:real;
begin
readln(n);
for i:=1 to n do
begin;
readln(a);
s:=s+a;
end;
s:=s/n;
writeln(s);
<span>end.</span>
Полезная информация - Полезность информации определяется субъектом, получившим информацию в зависимости от объема возможностей и ее использования.