написать код для робота. Всего 4 ситуации. В 1-ой ситуации всего надо закрасить 5 клеток. Во 2-ой ситуации всего 1 клетка, достаточно всего лишь закрасить ее, и все. В 3-ей и 4-ой ситуации надо закрасить по 7 клеток.

Урок "Определение объема графического файла" Задача  2. Какой объем информации занимает черно-белое изображение  размером 600 х 800?Решение:  600 х 800 = 480 000  точек   480 000  точек  х 1 бит = 480 000  бит480 000  бит / 8 бит / 1024 байт ≈ 58, 59 Кбайтответ: 58, 59 Кбайт Задача  3. Определить  объем растрового изображения размером 600 х 800 при глубине цвета 24 бита. Решение:  600 х 800 = 480 000  точек 480 000  точек  х 24 бит = 11 520 000  бит11 520 000 бит / 8 бит / 1024 байт = 1406,25 Кбайт / 1024 байт ≈ 1,37 Мбайтответ: ≈ 1,37 Мбайт Задача  3.  Определить объем видеопамяти компьютера, который необходим для реализации графического режима монитора с разрешающей и палитрой 65536 цветов.Решение: N  = 2i  =  65536       i =  16 бит       Количество точек изображения равно:       1024  х 768 = 78643216 бит  х 786432 = 12582912 бита / 8 бит / 1024 байт = 1536 Кбайт / 1024 байт = 1,5 М байтаответ: 1,5 М байта Задача  4. Определить объем растрового изображения размером  200 х 200 и  256 цветами.Решение: 200  х 200 х 8 бит = 320 000 бит / 8 бит / 1024 байт = 39,0625 Кбайт ≈ 39 Кбайтответ: 39 Кбайт

будем считать что слова разделены пробелами. значит считаем количество пробелов, чем больше пробелов тем больше слов.

ВНИМАНИЕ! программа не проверяет на двойные пробелы, а так же на пробелы в начале и конце строк что может привести к неправильному подсчету слов при неаккуратном вводе строк. Все эти проверки можно добавить но это усложнит программу...

var

   s1, s2 : string;

   w1, w2 : integer;

begin

   write('строка 1: ');

   readln(s1);

   write('строка 2: ');

   readln(s2);

   for var i := 1 to s1.Length do if copy(s1, i, 1) = ' ' then w1 += 1;

   for var i := 1 to s2.Length do if copy(s2, i, 1) = ' ' then w2 += 1;

   if w1 > w2 then writeln(s1)

   else if w1 < w2 then writeln(s2)

   else writeln(s1, ' ', s2);

end.