<u>Хорошо, когда задают задачи с решением в одну строчку!</u>
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
Writeln('Количество "МА" равно ',
ReadlnString('>').MatchValues('МА',RegexOptions.IgnoreCase).Count)
end.
<u><em>Тестовое решение</em></u>
> Мама мыла раму. Маша ела мандарины.
Количество "МА" равно 4
qbasic
? "Введите число"
INPUT A
A:2=B
IF B=INT(B) THEN 1 ELSE 2
1 ? "Это число четное" : GOTO 3
2 ? "Это число не четное"
3 END
Процессор! Т.К все остальные устройства-- накопители
6 пакетов на одну чашу, 6 на другую, пакеты, вес которых меньше, делим по 3 шт., снова взвешиваем, берем любые 2 из тех, вес которых меньше, взвешиваем. Если вес одного из них меньше, то это он и есть. Если вес одинаковый, то с меньшим весом пакет, который не на весах.
1280*1024=1 310 720 пикселей
2^2=4 цвета
2 бит для каждого пикселя
1 310 720 * 2 = 2 621 440 бит
2 621 440 / 8 = 327 680 байт
327 680 / 1024 = 320 Кбайт
Ответь: 320 килобайт