Program zad;
var
n: longint;
sum: integer;
begin
readln(n);
sum := 0;
while n > 0 do begin
if n mod 10 mod 2 = 0 then
sum := sum + n mod 10;
n := n div 10;
end;
writeln(sum);
end.
<span>Всеми́рная паути́на (англ. World Wide Web) — распределённая система, предоставляющая доступ к связанным между собой документам, расположенным на различных компьютерах, подключенных к Интернету. Для обозначения Всемирной паутины также используют слово веб (англ. web «паутина») и аббревиатуру WWW.</span>
program n1;
uses GraphABC;
var x1,y1,R:integer;
x,y:real;
begin
writeln('Введите размер стороны');
read(R);
x:=R/2;
y:=R/2;
setwindowsize(800,600);
setpenwidth(3);
rectangle(0,0,R,R);
line(0,0,R,R); line(0,R,R,0);
writeln('Введите координаты точки x и y');
read(x1,y1);
if (x1=x) and (y1=y) then
writeln('Является')
else writeln('Не является');
end.
В биосе проставьте USB Keyboard Support и USB Mouse Support в Enabled. Это самая частая причина. Как признак — на оптической мыши после старта не горит светодиод (нет питания). После установки Windows значение этих настроек не важно, т. к. в дело вступают уже драйверы Windows