Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное
Исходный файл - 15 Мбайт
Его перезаписали в формате стерео 2 канала, значит 15 Мбайт увеличивается в 2 раза = 30 Мбайт.
Потом его оцифровали с разрешением в 3 раза выше исходного, значит увеличиваем еще в 3 раза 30×3=90 Мбайт
Частота дискретизации была меньше в 2 раза, чем у исходного, значит делим на 2. 90÷2=45 <span>Мбайт
Сжатия не проводилось, поэтому ответ: </span><span>45 </span>Мбайт
Можно всё записать в один пример:
Двойки сокращаются, остаётся 15*3 = 45 Мбайт
Переведем все в десятичную систему счисления:
11011"2"=27"10"
200"3"=18"10"
33"8"=27"10"
102"5"=27"10"
значит сломаны весы под номером 2
Ответ:
8
Объяснение:
По росту ученики стоят так (самый высокий 6, самый низкий 1):
3 4 1 6 5 2
1) 3 4 6 1 5 2
2) 3 6 4 1 5 2
3) 6 3 4 1 5 2
4) 6 3 4 5 1 2
5) 6 3 5 4 1 2
6) 6 5 3 4 1 2
7) 6 5 4 3 1 2
8) 6 5 4 3 2 1