1. Посчитаем количество символов в книге (528страниц по 45строк по 60 символов):
255 потомому что потому это информатика вобще да ? не важно пиши знай
Вот на Pascal NET,только желтые точки будет почти не видно
uses GraphABC;
begin
//Левый верхний угол
PutPixel(1,1,clYellow);
//Левый нижний угол
PutPixel(1,WindowHeight-1,clYellow);
//Правый верхний угол
PutPixel(WindowWidth-1,1,clYellow);
//Правый нижний угол
PutPixel(WindowWidth-1,WindowHeight-1,clYellow);
<span>end.</span>
У ребёнка заболит пальчик, у матери сердце — Ф сёвжолб ибвпмйу рбмэшйл, ф нбуёсй тёсечё.
На ошибках учатся — шл оицёэкб узнчдй.
Ученью время — игре час — Лзъсгб эоъта — цьоъ зян.
Var n,n1,n2,n3,n4,sum:integer;
Begin
readln(n);
<span> n1:=n div 1000; </span>
<span> n2:=n div 100; </span>
<span> n2:=n2 mod 10; </span>
<span> n3:=n div 10; </span>
<span> n3:=n3 mod 10; </span>
<span> n4:=n mod 10; </span>
<span>n2:=n2*n2; </span>
<span>n3:=n3*n3; </span>
<span> sum:=sum+n2+n3; </span>
writeln('sum=',sum);
end.