Var a,b,c,g:integer;
Begin
readln (a);
b:=a mod 10;
a:= a div 10;
c:= a mod 10;
a:= a div 10;
g:= a mod 10;
write (b+c+g);
end.
Один бит информации уменьшает неопределенность в два раза.
var m,n:integer;
begin
readln(m,n);
if (m mod n)=0 then
write(m div n) else
<span>writeln(m,'<em> на</em> ',n,' <em>нацело не делится.');
</em></span>end.
<em>Помог ставь "<u>Лучший ответ</u>" ;)</em>
Var
m : array[1..4,1..4] of Integer;
m_new : array[1..4] of Integer;
i,j : Integer;
Begin
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
m[i,j]:=Random(100);
Write(m[i,j]:5);
If i=j then m_new[i]:=m[i,j];
end;
Writeln;
end;
Writeln('Главная диагнональ: ');
For i:=1 to 4 do Write(m_new[i]:5);
Writeln;
end.