Var
n, a, b, c, d, s, p: integer;
begin
Write('Введите натуральное четырехзначное число: ');
Readln(n);
if (n > 9999) or (n < 1000) then Writeln('Число должно быть четырехзначным')
else begin
a := n div 1000; d := n mod 10; n := (n div 10) mod 100;
b := n div 10; c := n mod 10;
s := a + b + c + d;
p := a * b * c * d;
Writeln('Сумма цифр равна ', s, ', а их произведение равно ', p)
end
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное четырехзначное число: 2345
Сумма цифр равна 14, а их произведение равно 120
FOR15
program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
<span>end.
FOR16
</span><span>program fofgogjoj;
var
<span>i, n: integer;</span>
<span>a, p: real;
</span></span><span>begin
<span>Writeln('Введите число:');</span>
<span>Write(' a = ');</span>
Readln(a);
<span>Writeln('Введите показатель степени (n > 0):');</span>
<span>Write(' N = ');</span>
Readln(N);
<span>Writeln('Все степени числа ', a, ' от 1 до ', n, ':');</span>
<span>p:= 1;</span>
<span>for i:=1 to n do</span>
begin
<span>p:= p*a;</span>
<span>Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
</span><span>end</span>
<span>end.</span></span>
Будет сделан выбор 1 из 64, неопределенность знаний о выбранной клетке уменьшится в 64 раза, 64 это два в шестой степени, следовательно, количество полученной информации составит 6 бит.
Существенный признак<span> — </span>признак<span>, придающий </span>предмету<span> качественную </span><span>определенность; </span>признак<span>, без которого </span>предмет<span> перестает </span>существовать<span> как данный</span>предмет<span>.</span>
var k,i,j:integer;
a:array[1..5]of integer;
begin
for i:=1 to 5 do begin
for j:=1 to 4 do begin
if a[j]>a[j+1] then begin
k:=a[j+1];
a[j+1]:=a[j];
a[j]:=k;
end;
end;
end;
end.