Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
Потому что по всему миру находятся куча серверов, и если какой то из них выходит из строя, то недоступна становится лишь та информация которая находилась на этом сервере!
С линиями связи почти такая же история. Всегда есть резервные каналы и тем самым маршрутизаторы ищут обходные пути
Так как Чертёжник вернулся в исходную точку, изменения по обеим осям координат равны 0. Обозначим искомое смещение по оси абсцисс за a, по оси ординат - за b. Теперь можно записать систему уравнений для обеих осей:
Δx = 4 * (a + 1 + 1) - 4 = 0
Δy = 4 * (b + 3 - 2) - 12 = 0
4 * a = -4
4 * b = 8
a = -1
b = 2
Ответ: 4.
Строка формул предназначена для отображения и редактирования содержимого активной ячейки
15)program 15;
uses crt;
var a, b, c:integer;
otv:real;
begin
readln (a, b, c);
if (a> 0) and (b> 0) and (c> o ) then begin
writeln (sqrt (a), sqrt (b), sqrt (c));
end else if (a=0) or (b=0) or (c=0) THEN writeln ('0') else begin otv:=a*b*c; write (otv); END;
readln
end.