Procedure SumKol(var n,k,s:integer);
begin
if n>0 then begin
s:=s+n mod 10;
k:=k+1;
n:=n div 10;
SumKol(n,k,s)
end
end;
function Mean(n:integer):real;
var k,s:integer;
begin
k:=0; s:=0;
SumKol(n,k,s);
if k>0 then Mean:=s/k else Mean:=0
end;
var
n,k,s:integer;
m:real;
begin
Read(n);
Writeln(Mean(n))
end.
ax=b
x=b/a
Алгоритм решения такого уравнения: Делим А на число В.
Программа в паскале:
var
a,b,x:real;
begin
readln(a);
readln(b);
if b=0 then begin
write('net resheniy');
exit;
end;
x:=a/b;
writeln(x);
end.
<span>Информационное сообщение объемом 300 бит содержит 100 символов. Какова мощность алфавита?<span> <span>Дано:Объем сообщения = 300 бит
текст состоит из 100 символов
Какова мощность алфавита?</span></span>Решение:1. Определим вес одного символа: 300 / 100 = 3 бита.2. Мощность алфавита определяем по формуле: 2 3 = 8.</span>
//прога на Pascal`e {бдок-схема в файле}
var
x: int64;
begin
write ('Введите целое число: ');
readln (x);
if x<=38 then write ('Салют') else write ('y = 5x-38 = ', 5*x-38);
end.
Это смешные картинки, комиксы, приколы и т. п.