На языке Pascal:
var a, b, c:integer;
begin
readln(a, b, c);
if (a<b) then begin
if (a<c) then
writeln(a);
end
else if (b<c) then
writeln(b)
else
writeln(c);
end.<span>
</span>
const
nn = 100; // максимальное число элементов
var
a: array[1..nn] of integer;
i, n: integer;
p: real;
begin
write('n = ');
read(n);
writeln('введите элементы массива');
p := 1;
for i := 1 to n do
begin
read(a[i]);
if (i mod 2 = 0) and (a[i] mod 2 <> 0) then
p := p * a[i];
end;
writeln('П = ', p);
end.
1. Очень просто. Информационный вес знака - это логарифм по основанию 2 от количества знаков в алфавите.
2. В Unicode каждый символ занимает 2 байта. Если в строке 80 символов, а строк 25, на это нужно 80×25×2 = 4000 байт.
Ответ:
18
Объяснение:
если посмотресть на условие, то там просят найти число (истина)которое больше 16 и четное(тк не нечетное дает четное)
наименьшее это 18
<span>//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)</span>
begin
var n:=ReadInteger('Введите n-> ');
for var i:=1 to n do
Writeln((1+i)/(2+i):0:2);
end.
Пример:
Введите n-> 5
0.67
0.75
0.80
0.83
0.86