Заполните пропуски в процедуре tаѕk
таким образом, чтобы она рисовала
перечеркнутый квадрат, как на
рисунке.
• Первые два параметра - координаты
правого верхнего угла квадрата.
• Третий параметр - длина стороны.
uses graphABC;
procedure task(...);
begin
...
end;
BEGIN
task (100, 80, 30);
END. ​

1. Современное решение, когда можно решить "в одну строку"

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString
    .Where(d->Pos(d,'13579')>0)).SelectMany(c->c)
    .Select(c->c.ToDigit).Sum)
end.

Пример
252 337 105
S=24

2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)

var
  m,i,j,s,d:integer;
begin
  s:=0;
  for i:=1 to 3 do begin
    Read(m);
    for j:=1 to 3 do begin
      d:=m mod 10;
      if d mod 2<>0 then s:=s+d;
      m:=m div 10
      end
    end;
  Writeln('S=',s)
end.

1)

так как в предложении 37 символов

37*2(так как каждый символ 2 байта) = 74 байта

байты переводим в биты получаем 74 * 8 = 592 бита

2)

20*32*16 = 10240 (количество символов в статье)

каждый символ кодируется 16-ю битами,

10240 * 16 = 163840 бит.

можно перевести в килобайты.

163840 бит/8 = 20480 байт

20480/1024 = 20 кб.

ответ: 20 килобайт.

3)

160 / 8 = 20. Итого 20 символов, т.к. в 1 байте - 8 бит.

4)

0,5*1024*8/256=16 бит

5)

Общий объём ста­тьи равен x · 64 · 48 · 16 бит = 48 Кбайт.

Сле­до­ва­тель­но, ко­ли­че­ство стра­ниц в ста­тье рав­ня­ет­ся:

x = (48 · 1024 · 8)/(64 · 48 · 16) = 8.

6)

80 * 25 = 2000 символов поместится на экране монитора.

Т.к в кодировке Unicode каждый символ кодируется 16 битами, то

2000 * 16 = 32 000 бит = 32 байта.

ответ: объем текста занимающего весь экран монитора в кодировке Unicode примерно 32 байта.

7)

40 * 32 * 4 = 5120 символов в сообщении.

5 Кбайт = 5120 байт.

5120 / 5120 = 1 байт, значит, на кодирование 1 символа отводится 8 бит.

Получается, в алфавите 2^8 = 256 символов.