Точно, конечно, ответить сложно. Но что-то мне подсказывает, что всё же олень. Олень.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;
procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;
begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
for var j:=0 to 13 do
if a[i,j]>m then begin
Inc(k); OutLightGreen(a[i,j]) end
else Write(a[i,j]:5);
Writeln
end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
end.
В Unicode каждый символ кодируется двумя байтами, считая пробелы и знаки препинания. В приведённом предложении нет точки в конце. (А должна быть!). Подсчитайте количество символов, умножьте на 2, это и будет ответ.
var
x1,y1,x2,y2:integer;
begin
readln(x1);
readln(y1);
readln(x2);
readln(y2);
if (x1+y1+x2+y2) mod 2 = 0 then
writeln('ONI IMEUT ODINAKOVIJ ZVET');
else
writeln('ONI IMEUT RAZNIJ ZVET');
end.
А) (a mod 1 = 0) And (a mod a = 0)
Б) a mod 1 = 0
В)(a >= 10) and (a<= 99)