Шестой (6) => Второй (2) => Четвёртый (4) => Первый (1) => Пятый (5) => Третий (3)
Объяснение:
Первый: 600 Кбайт
Второй: 200 байт
Третий: 1 Терабайт
Четвёртый: в 10 раз больше, чем Шестой (400 бит) * 10 = 4 000 бит
Пятый: 3 Мбайта
Шестой: 400 бит
Приравняем всё к одной системе, учитывая что:
1 байт = 8 бит
1 Кбайт = 1000 байт
1 Мбайт = 1000 Кбайт
1 Терабайт = 1000 Гбайт
Приравнивать будем к байтам
Первый: 600 Кбайт = 600 * 1000 = 600 000 байт
Второй: 200 байт
Третий: 1 Терабайт = 1 000 Гбайт (это много, дальше можно не считать)
Четвёртый: 4 000 бит = 4000 / 8 = 500 байт
Пятый: 3 Мбайта = 3 * 1000 * 1000 = 3 000 000 байт
Шестой: 400 бит = 50 байт
Теперь расставляем в порядке возрастания (от меньшего к большему)
Шестой: 50 байт
Второй: 200 байт
Четвёртый: 500 байт
Первый: 600 000 байт
Пятый: 3 000 000 байт
Третий: 1 000 Гбайт
Попробуй:
var
a, chet, nechet : integer;
begin
write('введите число: ');
readln(a);
while a > 0 do begin
if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;
a := a div 10;
end;
writeln('четных: ', chet);
writeln('не четных: ', nechet);
end.
программа считает 0 как четное число. Если нужно что бы 0 не учитывался при подсчете то необходимо строку:
if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;
заменить на:
if a mod 10 <> 0 then if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;
По горизонтали:
1. антивирусник
3. веб камера
5. джойстик
7. монитор
9. троян
10. процессор
11. динамики
15. ноутбук
16. корзина
17. браузер
По вертикали:
2. клавиатура
4. планшет
6. микрофон
7. мышка
8. пуск
12. колонки
13. принтер
14. сканер