Const n=100;
var a: array [1..n] of integer;
s,i: integer;
begin
s:=0;
for i:=1 to n do
{ вывод массива на экран }
begin
a[i]:=Random(100);
write(a[i],' ');
if (i mod 10 =0) then writeln();
end;
{ подсчет суммы элементов, кратных 3 }
for i:=1 to n do
if (a[i] mod 3 =0) then s:=s+a[i];
writeln('сумма равна ',s);
end. <span>
</span>
<span>10111,11(двоичное)
</span>10111,11₂ = 1*2⁴ + 0*2³ + 1*2² + 1*2 + 1 + 1*1/2 + 1*1/2² =
= 16 + 4 + 2 + 1 + 0,5 + 0,25 = 23,75₁₀ (десятичное)
<span>
306(восьмеричное)
</span>306₈ = 3*8² + 0*8 + 6 = 192 + 6 = 198₁₀ (десятичное)
<span>3В(шестнадцатеричное)
3В</span>₁₆<span> = 3*16 + 11 = 59</span>₁₀<span> (десятичное)</span>
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